Jeux en assembleur (FR)

1. Cavernes

2. Mines

3. Xeros

4. Sauvetage

5. Mission

6. Slalom

7. Gypsie

S. Formule 1
S. Panique
1Q, Astéroïdes

11, Attaque

12. Galeries
T3* Tanks

14, Base

15, Football

16, S,0,S.

17, Combat
IB, Labyrinthe

0170 1085 78 F

782736

9

101701

JEUX EN BASIC
ET EN ASSEMBLEUR

JEUX EN BASIC
ET EN ASSEMBLEUR

ERIC RA VIS

SYBEX

Paris * Berkeley * Düsseldorf

Illustrations ; Goulven Gallais

Photos de couverture ; Dominique Waechter

Tous les efforts ont été faits pour fournir dans ce livre une information complète et
exacte. Néanmoins, SYBEX n'assume de responsabilités ni pour son utilisation, ni
pour les contrefaçons de brevets ou atteintes aux droits de tierces personnes qui pour-
raient résulter de cette utilisation.

Copyright version originale © 1985, Sybex

ISBN 2-7361-0170-0

Tous droits réservés. Toute reproduction même partielle, par quelque procédé que
ce soit, est interdite sans autorisation préalable. Une copie par xérographie, photo-
graphie, film, bande magnétique ou autre, constitue une contrefaçon passible des
peines prévues par la loi sur la protection des droits d'auteur.

Table des matières

Attaque 9

Base 13

Combat 19

Galeries 25

Gypsie 31

Formule 1 37

Xeros 43

Astéroïdes 49

Panique .. 55

Sauvetage 59

Tanks 65

S.O.S. 71

Cavernes 77

Mission 83

Slalom 89

Labyrinthe 93

Football 97

Mines 103

NOTES CONCERNANT LES PROGRAMMES

Les programmes doivent être tapés tels qu'ils sont reproduits. Ils doivent
être enregistrés sur cassette (ou sur disquette} pour éviter d'avoir à les reta-
per à chaque utilisation. Utilisez pour cela l'instruction

SAVE “CAS: < NOM > "

en remplaçant < NOM > par le nom du programme à enregistrer.
Exemple : pour enregistrer le programme BASE, tapez

SAVE "CAS:BASE"

et pressez la touche ENTER après avoir appuyé sur les touches LECTURE
et ENREGISTREMENT du magnétophone. Pour recharger un programme,
rembobinez la cassette jusqu'au début du programme et tapez LOAD
“CAS: < NOM > Si vous voulez, par exemple, recharger le programme
BASE, tapez

LOAD “CAS: BASE"

et pressez la touche ENTER.

Afin de réduire au maximum les risques d'erreurs, les listings des pro-
grammes ont été reproduits par photographie. Si vos programmes ne fonc-
tionnent pas, vérîf îez-les attentivement en considérant plus particulièrement
les points suivants :

— lignes oubliées,

— numéros de lignes erronés,

— erreurs de frappe (attention en particulier à ne pas confondre la let-
tre O et le chiffre 0 ou la lettre I et le chiffre 1).

Avant-Propos

Les jeux présentés dans ce livre utilisent des fonctions propres aux micro-
ordinateurs MSX : son, couleur, graphisme, etc. Pour cette raison, ces pro-
grammes ne fonctionnent pas sur les micro-ordinateurs qui ne se confor-
ment pas à cette norme.

Au-delà du jeu lui-même, l'étude de ces programmes vous enseignera
de nombreuses techniques de programmation qui vous seront très utiles pour
développer vos propres programmes.

ATTAQUE

Détruisez un maximum de tanks à l'aide de votre bombardier. Au départ,
vous disposez de 5 bombes mais ne pouvez en transporter qu'une à la fois.

Pour décoller, appuyez sur la touche curseur haut et, pour lâcher la
bombe, sur la touche curseur bas.

Si vous détruisez au moins 3 tanks, vous obtiendrez un bonus de 5
bombes.

La variable NM, en ligne 40, correspond au nombre minimum de tanks
à détruire [1-51.

10 REM*********

20 REM*ATT AQUE*

30 REM*********

40 NM =3

50 COLOR 15,3,5
60 SCREEN 2,2

70 OPEN "GRP: " FOR OUTPUT AS#1
80 GÜSUB 690
90 CLS

100 GOSUB 520
110 SC-RE: X3=16S
120 GOSUB 920
130 SC=0:X3=64
140 GOSUB 920

150 A~B: Al=4: X=240: X2=0s Yl=209
160 FOR T=4 TO 7

170 PUT SPRITE T, <B4+T*B,8> , 13, T
ISO NEXT T
190 NB”4: NT=0

- 9 -

200 ON SPRITE GOSUB 360
210 SPRITE ON

220 IF X=Q THEN A=-8: SPRITE* ( 1 ) =C*

230 IF XO240 THEN 280

240 IF Cl = 14 THEN Cl = l : NB=NB-1 s PUT SPRIT
E NB+4, (52+NB*B,B) ,0: IF NB=-1 THEN 450
250 IF E2=0 THEN A=0: SPRITE* ( 1 ) =B*

260 IF STICK (0)01 THEN E2= 1 : GOTO 290
270 E2=Û
280 X= X—A

290 PUT SPRITE l , < X f 62> ,C1 , 1

300 IF STICK (0) =5 AND Cl = l THEN C1=14:X1

=X s Y 1 =62 : PLAY " 02L 1 OB "

310 IF POINT (XI ,Y1)=5 THEN Yl=Yl4-8 ELSE
Y 1=209

320 PUT SPRITE 2, ( X 1 , Y1 ) , 13, 2
330 X2=X2+A1

340 PUT SPRITE 3, <X2 , 170> , 14,3
350 GOTO 210
360 SPRITE OFF
370 PLAY"01L20C"

3B0 IF Al=-4 THEN X2=0:A1=4 ELSE X2=256:
Al=-4

390 Y 1=209

400 PUT SPRITE 2,<X1,Y1>,,2

410 SC=SC+1

420 NT=NT+1

430 GOSUB 920

440 RETURN

450 PUT SPRITE 1 , (255, 208) , , 1
460 IF NT=>NM THEN 160

470 IF RE< SC THEN RE=SC: X3= 168: GOSUB 920
480 PSET (72 , 80) ,5
490 COLOR 15

500 PRINT #1,” APPUYER SUR <S>''

510 IF INKEY*="S" THEN 90 ELSE 510
520 COLOR 1 1
530 PSET (O, 180)

540 DRAW " M255 ,180“

550 PAINT ( 100, 181 )

560 FOR T=1 TO 255 STEP 4
570 PSET (T, 179)

- 10 -

580 PSETCT+1 , 179)

590 NEXT T

600 COLOR 15

610 PSET <255, 160)

620 DRAW" Ml 40, 160M190, 120M200, 120M216, 70
M255 , 70"

630 PAINT <255, 159)

640 CIRCLE(100,32) ,40, 15,, ,.2
650 PAINT < 100,32)

660 CIRCLEf 140,40) ,30, 15, , , .2
670 PAINT < 145,40)

680 RETURN

690 FOR T=1 TO 80

700 READ A

710 A*=A*+CHR* (A)

720 NEXT T

730 B*=LEFT*(A*,24)

740 C*=MID* (AT- , 25 , 24)

750 SPRITE* (1)=B*

760 FOR T =2 TO 12

770 SPRITE* (T) =M ID* < A* ,49,8)

780 NEXT T

790 SPRITE* (3)=MID*(A*, 57, 24)

BOO El=ùsCl=l
B10 RETURN

B20 DATA 0,0,0,12,63,255,31,0

830 DATA 0,0, 0,0, O, 0,0,0

840 DATA 1,3,15,63,255,255,252,0

850 DATA 128,192,240,252,255,255,63,0

860 DATA 0,0, 0,0, 0,0, 0,0

870 DATA 0,0,0,48,252,255,248,0

880 DATA 60,126,60,0,0,0,0,0

890 DATA 0,0,3,15,3,255,127,63

900 DATA 0,0 ,0,0, 0,0, 0,0

910 DATA 0,0,192,240,192,255,254,252

920 PSET ( X3, B) ,5

930 COLOR 5

940 PRINT #1, STRING* ( 4, CHR* (200) )

950 PSET (X3,8) ,5
960 COLOR 15

970 PRINT #1 ,RIGHT*(STR*< 10000+SC) ,4)

980 RETURN

- 11 -

O O

BASE

Dirigez votre capsule spatiale à travers les météorites afin d’alunir.

Le chiffre, au centre, est le nombre de points que vous obtiendrez en
alunissant.

Utilisez les touches curseur gauche et droite pour manoeuvrer votre appa-
reil horizontalement et la touche curseur bas pour le remonter.

10 REM******

20 REM*BASE*

30 REM******

40 Z=RND <-T IME)

50 ON STDP GOSUB 70

60 STOP ON: GOTO BO

70 SCREEN 0: END

BO DEFUSR=60000 !: GOSUB 10000

90 RESTORE

100 SCREEN 1,2

110 CDLÛR 7,0,0

120 VPDKE 8218, 128

130 OPDKE 8219,128

140 VPOKE 8220,240

150 KEY OFF

160 GOSUB 570

170 GOSUB 820

180 Z =6

190 GOSUB 540

200 Z=19:T=SC:SC=RE

210 GOSUB 540

220 SC=T

230 ON SPRITE GOSUB 430

- 13 -

240 GPR I TE ON
250 A— STICK <0) : XD=0
260 IF A— 7 THEN XD=-1
270 IF A=3 THEN XD=1

2S0 IF A=5 AND Y< >24 THEN YD*-2 ELSE YD=
2

290 X=X+XDj Y=Y+YD
300 IF Y=152 THEN 360
310 PUT SPRITE 1, ( X , Y ) ,15,1
320 B1=B1— 1

330 IF B 1=0 AND B0>0 THEN B 1=50: BQ=B0-1 :
LOCATE 13,1s PR INT BO
340 A=USR(G)

350 GOTO 240
360 5C=SC+B0
370 PLAY " 05L40CDEFGA "

380 FOR T=1 TO 1000

390 NEXT T

400 Z =6: GOSUB 540

410 GOSUB 990

420 GOTO 240

430 PLAY 11 0 1 L 1 OCC 11

440 FOR T=1 TO 1000

450 NEXT T

460 SPRITE OFF

470 IF SORE THEN RE=SC

4B0 SC=RE

490 LOCATE 7,10

500 PR INT "APPUYER SUR <S>"

510 Z=19
520 GOSUB 540

530 IF INKEY*="S" THEN CLSs SC=Os GOSUB 99
O: GOTO 170 ELSE 530
540 LOCATE Z,I

550 PR INT RIBHT* (STR* ( 10000+SC) ,4)

560 RETURN

570 FOR T =0 TO 39

580 RE AD A

590 VPOKE 1760+I*8+T,A
600 NEXT T

610 DATA 255,255,193,62,124,131,255,255
620 DATA 0,0,12,28,62,62,127,255

- 14 -

630 DATA 0,0,0,32,48,120,124,255

640 DATA O, 0,0, 0,0, O, 0,0

650 DATA 0,0,128,0,0,1,0,0

660 FOR T=1 TO 56

670 READ A

680 S*=S*+CHR*(A)

690 NEXT T

700 SPRITE*(1)=MID*CS*, 1 ,32)

710 FOR T=2 Tü 16

720 SPRITE* (T) =MID* CS* , 33+ INT (RND ( 1 ) *3) *

8 , 8 )

730 NEXT
740 RETURN

750 DATA 3,15,63,63,63,63,63,63

760 DATA 15,7,13,25,63,32,112,248

770 DATA 192,240,252,252,252,252,252,252

780 DATA 240,224,176,152,252,4,14,31

790 DATA 0,24,60,126,126,252,248,32

800 DATA 6,15,63,127,127,30,0,0

810 DATA 24,124,254,254,255,255,56,16

820 LOCATE 0,19

830 FOR T=1 TO 29 ^

840 PR INT CHR* (RND(l) *3+221 ) ;

850 NEXT T

860 FOR T= 1 TO 87 °)C
870 PRINT CHR* (219) ;

880 NEXT

890 RESTORE 1080
900 FOR T=1 TO 4
910 READ X , Y
920 LOCATE X,Y
930 PRINTCHR* (220) ;

940 NEXT T

950 FOR T=1 TO 50

960 LOCATE RND ( 1 > *30 , 3+RND ( 1 ) *16
970 PRINT CHR* (224);

980 NEXT T

990 PUT SPRITE 1,(1,20B),,1
ÎOOO FOR X=0 TO 2
1010 FOR Y=0 TO 4
1020 A=2+X+Y*3

1030 PUT SPRITE A, (85*X+RND < 1 ) *60 , 56+16*

- 15 -

Y) , 10, A
1040 NEXT Y
1050 NEXT X

1060 X“122: Y=24: YD-1 ; 130=108 Bl = l
1070 RETURN

1080 DATA 5,20,29,20,18,21,10,22
10000 REM DEPLACEMENT METEORITES
10010 RESTORE 10070
10020 FOR T=60000! TO 60048!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 62,2,14,2,205,124,234,14,255,

205, 124,234,14,3,205, 124,234,14

100B0 DATA 254,205,124,234,14,1,205,124,

234,201 ,245,6,3,205,135,0,35,205

10090 DATA 74,0,145,205,77,0,241,60,245,

16,240,241 ,201

- 16 -

COMBAT

Tirez sur les avions, les bateaux et les sous-marins.

Au début du jeu, vous disposez de 90 secondes. Mais si vous réussis-
sez à tout détruire, vous obtiendrez 15 secondes supplémentaires.

Le jeu se termine si le temps est écoulé ou si vous tirez sur une mine.
Les points sont répartis ainsi :

sous-marîn : 1 point,
bateau : 2 points,
avion : 3 points.

Pour manœuvrer votre base, utilisez les touches curseur droite et gauche
et, pour tirer, la touche curseur haut,

10 REM****-****

20 REM* COMBAT*

30 REM********

40 SCREEN 1 , 2
50 CLEAR 1000
60 Z=RND <--T IME)

70 GOSUB ÎOOOO; DEFUSR sa 60000 !

80 DEFUSR 1 =!<HEA9 1

90 ON STOP GOSUB 110

100 STOP ON: GOTO 120

110 COLOR 10, 1,1: SCREEN O: END

120 KEY OFF

130 WIDTH 32

140 GOSUB 630

150 GOSUB 1170

160 TE"41

170 GOSUB 1120

- 19 -

180 GOSUB 760
190 NB=0

200 TE=TE+1 6: IF TE>99 T NEW TE==99

210 GOSUB 1290

220 X-120: Yl=209: C0»1 : Tl=l

230 ON SPRITE GOSUB 370

240 SPRITE ON

250 A=»STICK<OÏ

260 IF A=7 AND X>88 THEN X=X-8

270 IF A=3 AND X<152 THEN X=X+8

280 IF A=1 AND VI =209 THEN CÜ=0: Yl=176: X

1=X

290 IF C0=0 THEN Y1=Y1-B

300 IF Yl = 16 THEN Y1=209:C0=1

310 T1=T1-1:IF T1=0 THEN TE=TE-1 :T1=18: I

F TE=—1 THEN 470

320 LOCATE 14,1: PR INT TE

330 PUT SPRITE 1 , ( X , 176) , 10 , 1

340 PUT SPRITE 2 , ( X 1 , Y1 > , 1 , 2

350 Z=USR (0)

360 GOTO 240

370 SPRITE OFF

3B0 IF Y1 >145 THEN RETURN

390 C=2sCZ=18

400 Z=USR1 (0)

410 PLAY"01L10C"

420 FOR T=40000 ! TO 40029! STEP 2
430 A=PEEK ( T > : B=PEEK ( T+ 1 )

440 C=C+1 : IF ABS(X1-B)<16 AND ABS(Y1-A)<
16 THEN CZ=C
450 NEXT

460 IF CZ< 12 THEN SPRITE* (CZ 1 =" " : PUT SPR

ITE 2, (XI, 209) , ,2: Yl=209: C0=1 s SC=SC— 3* (C

Z<6) -2* (CZ >5 AND CZ<9) - (CZ >8) : GOSUB 1120

: NB=NB+1 : IF NB=9 THEN PLAY " 05L30CDEEDED

C" ï GOTO 170 ELSE RETURN

470 FOR T =0 TO 40

480 C=C+1 s IF 015 THEN C=0

490 COLOR ,C,C

500 NEXT T

510 CQLOR 7,5,4

520 VPOKE 8219,80

- 20 -

530 VPOKE 8218,208

540 IF RE<SD THEN RE=SC

550 GOSUB 1120

560 SC=0

570 LOCATE 8,7

580 PR INT "APPUYER SUR <S>"

590 IF INKEY*<>"5" THEN 590

600 LOCATE B, 7

610 PRINT SPACE*(15)

620 GOTO 160
630 FOR T=1 TO 80
640 READ A
650 S*=S*+CHR*(A)

660 NEXT T

670 FOR T=1 TO 64

680 READ A

690 T*=T*+CHR*(A)

700 NEXT T

710 FOR T =0 TO 23

720 READ A

730 VPOKE 1712+T, A

740 NEXT T

750 RETURN

760 FOR T=12 TO 17

770 SPRITE* (T)=LEFT* (Si, 32)

780 NEXT T

790 FOR T=9 TO 1 1

800 SPRITE* ( T ) =M I D* ( S* , 33 , 24 )

810 NEXT T

820 FOR T=3 TO 5

830 SPRITE* (T)=MID*(S*, 57, 24)

840 NEXT T

850 FOR T=6 TO 8

860 SPR I TE* ( T ) =LEFT * ( T* , 24 )

870 NEXT T

880 SPR I TE* ( 2 ) =M I D* ( T* , 25 , 8 )

890 SPRITE* ( 1 ) =MID* ( T* , 33, 32)

900 RETURN

910 DATA 1,33,119,63,31,63,63,254
920 DATA 254,63,63,31,63,119,33,1
930 DATA 128,132, 238 , 252 , 248 , 252 , 252 , 127
940 DATA 127,252,252,248,252,238,132,128

- 21 -

950 DATA O
960 DATA 0
970 DATA O
9SO DATA 0
990 DATA Û
1000 DATA
1010 DATA
1020 DATA
1030 DATA
1040 DATA
1050 DATA
1060 DATA
1070 DATA
6

10B0 DATA
1090 DATA
1100 DATA

, 1 , 1 , 31 , 191 , 255 , 191,31
, 0 , 0 , 0 , 0 , 0 , 0,0

, 224 , 224 , 254 , 255 , 255 , 255 , 254
, 192 , 224 , 255 , 255 , 255 , 199,15
,0,0, 0,0, O, 0,0
0 , 0 , 120 , 254 , 255 , 254 , 224,248
0 , 0 , 7 , 15 , 255 , 255 , 127,63
O, 0,0, 0,0,0, 0,0
0 , 0 , 224 , 224 , 255 , 255 , 254 , 252
1 , 1 , 1 , 1 , 1 , 1 , 1,1
3 , 7 , 7 , 7 , 7 , 7 , 19,55

63 . 127 . 127 . 63 . 55 . 19 . 0 . 0

1 92 , 224 , 224 , 224 , 224 , 224 , 200 , 23

252 . 254 . 254 . 252 . 236 . 200 . 0 . 0
O, O, O, 0,0, 0,0,0

255 , 255 , 255 , 255 , 255 , 255 , 255 , 25

5

1110 DATA 255,255,255,255,255,223,207,13
5

1120 LQCATE 7,1

1130 PRINT RIGHT$ (STR$ C 10000+SCÏ ,4)

1140 LOCATE 21,1

1150 PR IIMT R IGHT f- ( STft$ ( 1 OOOO+RE ) , 4 )

1160 RETURN
1170 CL S

1180 COLOR 7,5,4
1190 VPDKE B2 19, BO
1200 VPOKE 8218,208
1210 LOCATE 0,8
1220 FOR T=1 TO 511

1230 IF T< 460 DR <T>469 AND T<492) OR T>
501 THEN A=214 ELSE A=215
1240 IF T< 33 THEN A=216
1250 PRINT CHR$<A);

1260 NEXT T

1270 OPQKE 6911,214

1280 RETURN

1290 RESTORE 1380

1300 PLJT SPRITE 2, (200, 208) ,, 2

1310 FOR Y=0 TO 4

1320 READ A

- 22 -

1330 FOR X=0 TO 2

1340 PUT SPRITE 3+X+Y*3, (X*85+RND ( 1 ) *40,

Y*24+40> ,A,3+X+Y*3

1350 NEXT X

1360 NEXT Y

1370 RETURN

1380 DATA 3,15,14,1,1

10000 REM DEPLACEMENT SPRITES

10010 RESTORE 10080

10020 FOR T =60000 î TO 60075!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RESTORE
10070 RETURN

10080 DATA 62,3,14,252,205,124,234,14,3,
205,124,234,14,254,205,124,234, 14
10090 DATA 1,205,124,234,14,255,205,124,

234.201 .245.6.3.205. 135.0. 35.205

10100 DATA 74,0,145,205,77,0,241,60,245,
16,240,241,201

10110 DATA 62,3,1,64,156,245,205,135,0,2

05.74.0. 2.3.35. 205 .74.0.2.3.241
10120 DATA 60,254,18,32,235,201

- 23 -

GALERIES

Vous avez 90 secondes pour traverser 10 gaieries à l'aide de votre sous-
marin. Mais attention aux mines I

Si vous y parvenez, vous devrez en traverser 10 autres plus étroites,
toujours en 90 secondes.

Pour manœuvrer votre sous-marin, utilisez les touches curseur haut, gau-
che, droite ; son poids se charge de le faire descendre.

10 REM»#********

20 REM*GALER I ES#

30 REi"1**********

40 ON STOP GOSUB 60

50 STOP ON: GOTO 70

60 COLOR 10, 1 , lïSCREEN O: END

70 SCREEN1

80 WIDTH 32

90 KEY OFF

lOO COLOR 1,5,1

110 DEFUSR-60000 !

120 Z=RND<-TIME)

130 GOSUB 580

140 GOSUB 10000

150 NV=50:TI=TIME:N1=0:SC=0

160 POKE 59000! , 10

170 N1=N1+1

180 IF Nl< 11 THEN 270

190 IF PEEK (59000 ! ) >5 THEN POKE 59000!, P
EEK (59000 ! ) -1 : Nl = l : TI=TIME: GOTO 270
200 LQCATE 8,2
210 PR INT "FI N DES GALERIES"

- 25 -

220 FOR T= 1 TÜ IGOîNEXT T

230 LOCATE £3,2

240 PRINT SPACE*<17)

250 FOR T= 1 TO 100s NEXT T

260 GOTO 200

270 GOSUB 7B0

280 GOSUB 900

290 X=2: Y—12; S=240s TE=0

300 GOTO 430

310 A=STICK (O)

320 TA=INT(92~(TIME-TI>/50) : IF TA<0 THEN
TI=TIME+100; GOTO 490 ELSE LOCATE 14,1:P
RINT TA

330 IF AOO THEN TE=0

340 IF A=1 THEN XD=0: VD=-1 s GOTO 390

350 IF A=3 THEN XD=1 : YD=0; S=240s GOTO 390

360 IF A=7 AND X<>2 THEN XD=-1 s YD=0: S=24

2: GOTO 390

370 TE=TE+1 s IF TE=20 THEN TE=0: XD=0: YD=1

s GOTO 390

380 GOYO 310

390 LOCATE X,Y

400 PRINT CHR*<32) ; CHR* (323

410 X=X+XDi Y=Y+YD

420 IF VPEEK (6144+X+Y*32> < >32 DR VPEEK (6

145+X+Y*32) < >32 THEN 490

430 LOCATE X,Y

440 PRINT CHR*<S) sCHRÆ(S+l)

450 IF X< 30 THEN 310
460 PLAY ” 05L30CDE "

470 SC=SC+10
480 GOTO 170
490 PLAY" 01L20C"

500 LOCATE X,Y

510 PRINT CHR$ < 244 ) ; CHR$ ( 244 )

520 FOR T=1 TO 1000s NEXT T

530 NV=NV-1:IF NV >47 THEN 270

540 IF SORE THEN RE=SC: GOSUB 790

550 LOCATE B, 2

560 PRINT “APPUYER SUR (S)"

570 IF INKEY$="S" THEN 150 ELBE 570
580 FOR T=0 TO 7

- 26 -

590 READ A

600 VPOKE 1984+T, A

610 NEXT T

620 FOR T «O TO 39

630 READ A

640 VPOKE 1920+T , A

650 NEXT T

660 VPOKE 8223,125

670 VPOKE 8222 ,21

680 VPOKE 8221,101

690 VPOKE 8198,245

700 VPOKE 8199,245

710 RETURN

720 DATA 255,255,195,195,195,195,255,255
730 DATA 0,1,1,31,191,255,191,31
740 DATA 0,224,224,254,255,255,255,254
750 DATA 0,7,7,127,255,255,255,127
760 DATA 0,128,128,248,253,255,253,248
770 DATA 08, 65, 22, 48, 3, 52, 100,0
780 CLS; GOSUB 790; GOTO 840
790 LOCATE 7,1

800 PRINT RIGHT* (STR* (10000+80 ,4)

810 LOCATE 21 , 1

B20 PRINT RIGHT$ (STR* (10000+RE) ,4)r

830 RETURN

840 LOCATE 27,1

850 PRINT CHR* (240) ;CHRt (241) j “ : “

B60 VPOKE 6206, NV
870 2=USR (0)

880 LOCATE 10,10

890 RETURN

900 FOR T— 1 TO NI

910 XE=RND ( 1 > *26+5

920 YE= I NT ( RND ( 1 ) *20+4 >

930 P=6144+YE*32+XE

940 IF VPEEK (P) < >32 OR VPEEK (P+32) < >32 O

R VPEEK (P-32) 032 THEN 910

950 VPOKE P, 232

960 NEXT T

970 RETURN

10000 REM GENERATEUR GALERIES
10010 FOR T=60000 ! TO 60066!

- 27 -

10020 RE AD A
10030 POKE T, A
10040 NEXT T
10050 RETURN

10060 DATA 33,96,24,62,248, 1 , 160,2, 205, 8

6.0. 33. 11.1 .229.58. 120.230.245

10070 DATA 205,198,0,62,32,205,162,0,44,

241 .61.254.255.32.240.225.1.0. 1 .9
10080 DATA 124,254,33,200,237,95,254,64,
56,9,44,58,120,230, 133,254,24,32

10090 DATA 212,45,125,254,4,32,206,195,1
45,234

- 28 -

GYPSIE

Aidez la grenouille Gypsie à traverser la route puis la rivière en évitant
les voitures et en sautant sur les troncs d'arbre.

Au début du jeu, vous avez 90 secondes.

Si vous réussissez 3 traversées, vous obtenez 20 secondes supplémen-
taires. La partie s'arrête si le temps est à 0 ou si vous n'avez plus de grenouille.
Pour faire avancer Gypsie, utilisez la touche curseur haut.

10 REM********

20 REM*6YPSIE*

30 RE N********

40 SCREEN 1,2
50 COLOR 1,2,12
60 KEY ÜFF
70 WIDTH 32
80 DEFU SR =60000 !

90 DEFUSR 1=60023!

100 CLEAR 1000

110 ON STOP GDSLIB 130

120 S T DP ON; GOTO 140

130 COLOR 10, 1 ,1: SCREEN 0; END

140 Z=RND (-TIME)

150 GOSUB 690

160 GOSUB 10000

170 GOSUB 1170

180 Z=USR ( 0) : NV=50

190 GOSUB 1310

200 ON SPRITE GOSUB 660

210 TI=TIME

220 POKE 59000 ! , 1 20 : CO— 1
230 Y 1=1 84
240 GOTO 300

- 31 -

250 SPRITE ON:CO=1

260 IF ST I CK CO) = 1 AND TE=0 AND PLAY<0)=0
THEN TE=1 : PLAY ''□4L64CD'’

270 IF TE=2 THEN TE-Q: SPRITE* ( 1 ) “A*a Y1=Y
1~8

280 IF TE“1 THEN TE=2: Y1=Y1-B: SPRITE* ( 1 )
«B*

290 Z =USR 1 (0)

300 PUT SPRITE 1 , (PEEK (59000 !) ,Y1 ), 15, 1
310 IF PEEK (59000 !) >247 OR PEEK (59000 !) <
16 THEN 450

320 T A= I NT ( 90- ( T I ME-T I ) /5Ü > : IF TA<0 THEN
NV=48:G6t0 450 ELSE LOCATE 15,1: PRINT T
A

330 IF TE=0 AND ( (CO-1 AND Yl<104> DR (C

0=0 AND Y1 >104) > THEN 450

340 IF Y 1 < >24 THEN 250

350 H=300

360 FOR T=1 TO 3

370 IF ABS (PEEK (59000 !> -A (T) KH THEN H=A

BS (PEEK (59000! )-A(T) > :H1=T

380 NEXT T

390 IF H >6 THEN 450

400 PLAY"G5ADE M

410 SPRITE* (25+Hl)="" : A(H1 ) =0

420 SC=SC+10: G05UB 1310

430 N=N+1 : IF N=3 THEN GOSUB 1250: FOR T=2
6 TO 28: SPRITE* (T) =F*: NEXT T:TI=TI+1000
440 GOTO 220
450 FLAY"Ü1L10C"

460 SPRITE* (1)=G*

470 IF NV=48 THEN 520
480 NV=NV-1 : GOSUB 1310
490 FOR T=1 TO 500: NEXT T
500 SPRITE* (1)=A*

510 GOTO 220

520 IF RE< SC THEN RE=SC

530 GOSUB 1310

540 LOCATE 8,13

550 PRINT "APPUYER SUR <S>"

560 IF INKEY*< >"5" THEN 560

570 LOCATE 8,13

580 PRINT SPACE* ( 15)

- 32 -

590 GOSUB 1170

600 NV=50:SC=0: GOSUB 1310

610 SPRITE* ( 1 ) «A*

620 FOR T =26 TO 28
630 SPRITE* (T) =F*

640 NEXT T

650 GOTO 210

660 C0=0

670 SPRITE OFF

680 RETURN

690 FOR T=Q TO 111

700 READ A

710 S*=S*+CHR* (A)

720 NEXT T

730 A*=LEFT*<S*,B)

740 B*=MID* (S* , 9 , 16)

750 SPRITE* (1)=A*

760 SF'R I TE* ( 29 ) =A*

770 C*=MID* (S* ,25 , 24)

780 FORT =2 TO 13
790 SPR I TE* ( T ) =C*

800 NEXT T

810 D*=MID* (S*, 49,24)

820 E*=MI D* (S* , 73 ,24)

B30 FOR Y=0 TO 1

B40 FOR X=0 TO 2

850 SPRITE* ( 14+Y*6+X> =D*

860 SPRITE* ( 17+Y#6+X) =E*

870 NEXT X

880 NEXT Y

890 ^*=HID* (S*, 97,8)

900 FOR T =26 TO 28
910 SPRITE* (T) «F*

920 NEXT T

930 G*=MID* (S*, 105,8)

940 FOR T =0 TO 7

950 READ A

960 VPOKE 1S56+T , A

970 VPOKE 1920+T , A

980 NEXT T

990 VPOKE 8221,64

1000 VPOKE 8222,224

- 33 -

1010 RETURN

1020 DATA 0,90,126,60,126,90,66,0
1030 DATA 66,66,90,126,60,60,60,126
1040 DATA 126,90,66,66,66,66,66,66
1050 DATA 127,255,255,255,255,255,255,12
7

1060 DATA- 0, 0, 0,0, 0,0, 0,0

1070 DATA 254,255,255,255,255,255,255,25

4

1080 DATA 0,28,31,63,63,31,28,0
1 090 DATA 0,0, 0 , 0 , 0 , 0 , O , O
1100 DATA 57,57,255,255,255,255,57,57
1110 DATA 156,156,255,255,255,255,156,15
6

1120 DATA 0,0, O, 0,0, 0,0,0

1130 DATA 0,56,248,252,252,248,56,0

1140 DATA 255,255,255,255,255,255,126,60

1150 DATA 88,65,22,48,3,52,99,0

1160 DATA 255,255,255,255,255,255,255,25

5

1170 PUT SPRITE 1,(0,208)

1180 FOR X=0 Tü 2
1190 Z-0:C=6
1200 FOR Y=0 TO 7

1210 IF Y >3 THEN Z ==16: C-B-4* ( X = 1 ï -5* ( X-2
)

1220 PUT SPRITE 2+X+Y*3, <85*X+RND ( 1 > *40,

40+ 1 6*Y+Z ) , C , 2+X+Y*3

1230 NEXT Y

1240 NEXT X

1250 FOR T— 1 TO 3

1260 A(T)«INT(60*T+RND(1)*30)

1270 PUT SPRITE T+25 , ( A ( T ) , 23) , 2, T+25

1280 NEXT T

1290 N—0

1300 RETURN

1310 LOCATE 7,1

1320 PR INT RIGHT* (STR* (10000+SC) ,4)

1330 LOCATE 21,1

1340 PR INT R I GHT $ ( STR$ ( 1 OOOO+RE ) , 4 )

1350 PUT SPRITE 29, (216, 7) , 15,29
1360 VPÜKE 6204,58

- 34 -

1370 VPOKE 6205, NV
1380 RETURN

10000 REM DEPLACEMENT SPRITES
10010 FOR T-60000! TO 60129'

10020 READ A
10030 PQKE T, A
10040 NEXT T
10050 RETURN

10060 DATA 33,96,24,1,64,1,62,232,205,86

,0,33,192,25,1,32,1,62, 240 , 205

10070 DATA 86,0,201,62,2,14,1,205,207,23

4 1 1 4 , 253 , 205 , 207 , 234 ,14,4, 205

10080 DATA 207,234,14,254,205,207,234,14

, 2 , 205 , 207 , 234 ,14, 252 , 205 , 207 , 234

10090 DATA 14,3,205,207,234,14,255,205,2

07.234.62.1.205.135.0. 205

10100 DATA 74,0,14,0,254,40,32,2,14,1,25
4,56,32,2,14, 253 , 254 ,72,32,2,14,4
10110 DATA 254,88,32,2,14,254,35,205,74,
O, 145,50,120,230,205,77,0,201 ,6
10120 DATA 3,245,205,135,0,35,205,74,0,1

45 . 205 .77.0. 241.60.16. 240 . 20 1

- 35 -

Fl 708

FORMULE 1

Vous devez parcourir 5 000 mètres avec votre Formule 1 le plus rapide-
ment possible, en évitant les autres voitures.

Si vous entrez en collision avec l'une d'elles, votre vitesse deviendra nulle.

Pour vous déplacer, utilisez les touches curseur haut et bas, pour accé-
lérer la touche curseur droit et pour freiner la péda... euh, la touche curseur
gauche.

10 REM**#-*#*****-»

20 REM*FORMULE I*

30 REM***********

40 SCREEN 1 ,3
50 WIDTH 32
60 KEY OFF
70 CGLOR 7,2,12
80 DEFUSR=60000!

90 DEFUSR 1=60023 !

100 DEFUSR2=60065!

110 ON STOP GOSUB 130

120 STOP ON: GOTO 140

130 BEEP: COLOR 10 , 1 , 1 : SCREEN O: END

140 GOSUB 640

150 GOSUB 10000

160 SOUND 12,12

170 SOUND 7,0: SOUND 6,11

180 SOUND 13', 12: SOUND 1,15

190 SOUND 0,-255

200 Z =USR ( 0) : Y 1 =80

210 PUT SPRITE 1,(0, 208 ) , , 1

220 LQCATE 0,9

230 FOR T=0 T031

240 PRINTCHR* (96+ T MOD 4);:NEXT

- 37 -

250 LOCATE 0,13
260 FOR T =0 TD31

270 PRINTCHR* (96+T MOD 4>;:NEXT

280 LOCATE 7,20

290 PRINT "O.OBO. 160.240.320"

300 GOSUB 930: REM POS SPRITES

310 TIME=0: 01=300: NM=0:P0KE 59000!, 0

320 IF MTOO THEN GOSUB 970

330 ON SPRITE GOSUB 560

340 ON I NTEROAL— V 1/60 GOSUB 550

350 INTERVAL ON

360 IF VI =300 THEN INTER VAL OFF
370 PUT SPRITE 2, (201-VI/2, 157) , 15,2
380 SOUND 8, 16- INT (VI /60)

390 LOCATE 5 , 1

400 TA=T IME/ 50: PRINT TA

410 LOCATE 13,1

420 NM=NM+PEEK ( 59000 ! )

430 PRINT NM

440 PDKE 59000!, O

450 IF NM>4999 THEN 570

460 SPRITE ON

470 A=ST I CK ( O ) s C= 1

480 IF A=3 AND VIO60 THEN VI=VI-2:C=0

490 IF A=7 AND VI<293 THEN VI=VI+B:C=0

500 IF A=1 AND Yl<>48 THEN Y1=Y1-S

510 IF A=5 AND Y10112 THEN Y1=Y1+B

520 PUT SPRITE 1 , (24, Y1 ) , 15, 1
530 Z=USR2(0)

540 IF C=1 THEN 370 ELSE 340
550 Z=USR1 (O) sRETURN

560 SPRITE OFF: VI =300: SOUND 8,0:RETURN

570 INTERVAL OFF

580 BEEP: FLAY "05L40CDCDCE"

590 IF TA<MT OR MT=0 THEN MT=TA

600 GOSUB 970

610 LOCATE 9,3

620 PR INT "APPUYER SUR <S>"

630 IF INKEY*="S" THEN CLS:GOTO 160 ELSE
630

640 FOR T=0 TO 39

650 READ A

660 S*=5$-i-CHR$<A)

- 38 -

670 NEXT T

680 FOR T=1 TO 5

690 SPRITE* (T) =LEFT* (S*, 32)

700 NEXT T

710 SPRITE* (2>=MID* (S*, 33, 8)

720 FOR T =0 TO 7
730 VPOKE 1S56+T, 0
740 VPOKE 1920+T,Ü
750 VPOKE 784+T , 0
760 VPOKE 792+T ,0
770 NEXT T
780 VPOKE 8221,1
790 VPOKE 8222,14
800 FOR T=0 TO 7
810 READ A
820 VPOKE 768+T , A
830 VPOKE 776+T , A
840 NEXT T
850 VPOKE 8204,254
860 RETURN

870 DATA 222,222,204,222,255,255,255,255

880 DATA 222,204,222,222,0,0,0,0

890 DATA 0,0,60,24,254,159,159,254

900 DATA 24,60,0,0,0,0,0,0

910 DATA 255,129,129,129,129,255,0,0

920 DATA 0,0,0,255,255,0,0,0,0

930 PUT SPRITE 3, (0,209) , 13,3

940 PUT SPRITE 4 , C 88 , 209 ) , 1 2 , 4

950 PUT SPRITE 5 , ( 176 , 209) , B , 5

960 RETURN

970 LOCATE 23,1

980 PRINT SPACE* (3)

990 LOCATE 21,1
ÎOOO PRINT MT
101 O RETURN

ÎOOOO REM DEPLACEMENT VOITURE+ROUTE

10010 RESTORE 10070

10020 FOR T=60000 ! TD 60217!

10030 READ A
10040 PDKE T, A
10050 NEXT T
10060 RETURN

- 39 -

10070 DATA 33 , 160,24 , 1 , 160 , 1 , 62,232 ,205 ,

86.0. 33.192.24.1.96.1.62.240.205.86
10080 DATA 0,201,33,32,25,205,142,234,33
, 160,25,205,142,234,42, 120,230,17,3,0
10090 DATA 25,34,120,230,201,6,32,205,74
,0,60, 254 ,100,32,2,62,96, 205 ,77,0
10100 DATA 35,16,240,201,62,2,205,135,0,

35 . 205 . 74 . 0 . 254 .111.56.98.6.4. 254
10110 DATA 141,56,2,6,12,254,171,56,2,6,

20.62.3.245.197.205. 135.0. 35.205

10120 DATA 74,0,55,144,48,8,205,77,0,205
,222,234,24,3,205,77,0,193,241,60
10130 DATA 254,6,32,225,201,237,95,254,4
2,48,5,62,48,195, 244 , 234 , 254 ,84,48,5
10140 DATA 62,80,195,244,234,62,110,43,2

05 .77.0. 35.35.35. 237 .95.6.8. 254 . 42
10150 DATA 56, B, 6, 12,254,84,56,2,6, 13, 12
0,205,77,0,201 ,6,12,254,81,56

10160 DATA 2,6,4,62,3,245,205,135,0,35,2

05 .74.0. 128. 220 . 48 . 235 . 205 .77.0

10170 DATA 241,60,254,6,32,235,201,245,6

2.209.43.205.77.0. 35.241 .201

- 40 -

XEROS

Vous devez détruire le générateur alimentant les Xéros, terribles four-
mis guerrières, en un temps le plus faible possible.

Pour ce faire, tuez toutes les fourmis. La porte s'ouvrira et vous n'aurez
plus qu'à tirer dans le générateur.

Pour déplacer votre base, utilisez les touches curseur gauche et droite ;
pour tirer la touche curseur haut.

1 0 REM*******

20 REM*XEROS*

30 REM*******

40 SCREEN 1,2
50 WIDTH 32
60 KEY DF F
70 DEFUSR— 60000 !

80 DEFUSR 1=6001 2!

90 UN STOP GDSUB 110
100 STOP ON : GOTO 120
110 SDREEN 0 : END
120 COLOR 10,1,1
130 GDSUB 10000
140 RE S TORE
150 S$='"'sN=0
160 GOSUB 620
170 A=USR<0)

180 Xl=l 16: TE=0: T 1=0: X4=15: X3=0: Y3=0
190 Z=RND(-TIME>

200 GDSUB 910
210 TIME=0:SC-0
220 GOSUB 1130

- 43 -

230 GOSUB 1160
240 A-STICK (O)

250 IF A=7 AND X1O20 THEN X 1 =X 1~8: X4=X4
-1

260 IF A=3 AND X1022B THEN X1=X1+B:X4=X
4+1

270 IF A=1 AND T 1=0 THEN X2=X 1+4: Y2=l 67:
TI = 1 : X3"X4: Y3=21 : PLAY "01L64C"

2BO PK=6144+32*Y3+X3: IF VPEEK(PK)=32 THE
N 310 ELSE Y2=3 1 : IF VPEEK (PK) =120 THEN V
PÜKE PK, 32: GOTO 310

290 IF Y 3 >5 THEN VPOKE PK-1 , 32: VPOKE PK,

32: VPÜKE PK+1 ,32: PLAY 11 D5L64B’ 1 : N=N+1 : IF

N=16 THEN GOSUB 370

300 IF VPEEK (PK) >135 THEN 420

310 IF Y2=31 THEN Y2=209: T 1=0: Y3=21

320 IF T I = 1 THEN Y2=Y2-8: Y3=Y3-1

330 PUT SPRITE 2 , ( X2 , Y2> , 7 , 2

340 PUT SPRITE 1 , ( XI , 173) , 15, 1

350 TE=TE+1 : IF TE=15 THEN TE=0: A=USR1 (0)

: SC=TIME: BOSUB 1130

360 GOTO 240

370 FDR T=0 TO 5

380 VPÜKE 631 7+T , 32: BEEP

390 FOR 1=1 TO 50: NEXT I

400 NEXT T

410 RETURN

420 IF SC< RE OR RE=0 THEN RE=SC
430 BEEP

440 SOUND 6,20: SOUND 7,7

450 SOUND 12, 100: SOUND 8,16

460 SOUND 13, 14: SOUND 0,1

470 FOR T— 1 TO 500: NEXT T

480 FOR T=1 TO 50

490 FOR 1=14 TO 1 STEP-1

500 COLOR 10,1,1+1

510 NEXT I

520 NEXT T

530 CL S

540 PUT SPRITE 1 , (200 , 208) , , 1

550 COLOR 10,1,1

560 FOR T-l TO 200: NEXT T

- 44 -

570 BEEP

580 T I ME=SC : GOSUB 1130: GOSUB 1160

590 LOCATE 8,10

600 PR INT “APPUYER SUR <S>"

610 IF INKEY4K > M 5" THEN 610 ELSE CLS:GOT
O 140

620 FOR 1=0 TO 31

630 READ A

640 VPOKE 880+T , A

650 NEXT T

660 FOR T=0 TO 7

670 READ A

680 VPOKE 960+T , A

690 NEXT T

700 FOR T=8205 TD 8214

710 READ A

720 VPÜKE T, A

730 NEXT T

740 FOR T =0 TO 39

750 READ A

760 S*=S*+CHR*(A> : NEXT T
770 SPRITE*< 1)=LEFT*<S*,32)

780 SPRITE* <2)=MID*(S*,33,B>

790 RETURN

BOO DATA 5,136,94,63,63,94,136,16
810 DATA 4,136,190,255,255,190,136,80
820 DATA 32,17,125,255,255,125,17,10
830 DATA 160,17,122,252,252,122,17,8
B40 DATA 255,129,129,129,129,129,129,255
850 DATA 160,128,192,96,64,96,144,16,208
,32

860 DATA 1 ,7, 7, 7, 7, 7, 7, 7

870 DATA 1,199,223,255,255,231,195,193

880 DATA 128,224,224,224,224,224,224,224

890 DATA 128,227,251,255,255,231,195,131

900 DATA 0,0,24,60,24,0,0,0

910 FOR 1=0 TO 2

920 LOCATE 0, 6+5*1

930 FOR T =0 TO 63

940 PR INT CHR* ( 120) ;

950 NEXT T
960 NEXT I

- 46 -

970 LOCATE 31,8
980 FOR T=0 TO 7

990 PR INT CHR$ (32) ; CHR# (112) i CHR^ (113) ; C
HRÏC32) ;

1000 NEXT T
1010 LOCATE 1,14
1020 FOR T=0 TO 7

1030 PR INT CHR$ < 32 ) ; CHR$ (110) ; CHR$ ( 1 1 1 ) 5
CHR$<32) ;

1040 NEXT T

1050 LOCATE 0,3

1060 FOR T =0 TO 95

1070 PR INT CHR$ (128) NEXT T

1080 FOR X=0 TO 5

1090 LOCATE X+13,4

1100 PR INT CHR$C136+X*0) ;

1110 NEXT X : PR INT
1120 RETURN
1130 LOCATE 7,1

1140 PR INT RIBHT$(STR$UNT(SC/5Q)+lOQ0Q>
,4)

1150 RETURN
1160 LOCATE 21,1

1170 PRINT RIBHT$(STR$ (INT (RE/50) +10000)

, 4 )

1180 RETURN

10000 REM DEPLACEMENT XERDS

10010 RESTORE 10070

10020 FOR T =60000 ! TO 60177!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 33,0,4,1,192,1,62,255,205,86,
0,201,30,0, 1 ,112,3,205,130,234
10080 DATA 237,75,122,230,3,28,123,254,4
,32,242,195,171 ,234,237,67, 120,230,42, 12
O

10090 DATA 230,1,7,0,9,34,122,230,42,120
,230,205 , 74,0,245 , 42, 122 ,230,205,74
10100 DATA 0,42,120,230,205,77,0,241,42,
1 22 , 230 , 205 ,77,0,201,33,63,25,6,31

- 46 -

en en

10110 DATA 205,190,234,33,192,25,6,31,20
,212, 234 ,195, 234 , 234 , 205 ,74,0, 245 ,43,20

10120 DATA 74,0,35,205,77,0,43,43,16,245
,241,35,205,77,0,201 ,205,74,0,245
10130 DATA 35,205,74,0,43,205,77,0,35,35
, 16,245,241,43,205,77,0,201 ,33,255
10140 DATA 24,6,63,205,190,234,33,96,25,
6,63, 205 ,212, 234 ,33,63,26,6,63, 205
10150 DATA 190,234,6,6,33,17,32,205,74,0
,60,205,77,0,35,16,246,201

- 47 -

ASTEROÏDES

Tirez sur les astéroïdes avant qu'ils ne vous détruisent.

Pour manœuvrer votre base, utilisez les touches curseur gauche et
droite ; pour tirer ia touche curseur haut.

Vous pouvez modifier la vitesse du jeu en donnant à la variable VI (ligne
801 une valeur comprise entre 1 et 5, 1 étant le mode le plus rapide.

10 REM************

20 REM* ASTERO I DES*

30 REM************

40 SCREEN 1,2

50 WIDTH 32

60 KEY OFF

70 CDLOR 10,0,0

80 CLEAR 1000: VI =3

90 PÛKE 59005! ,7ïP0KE 59006 !, 1 1

100 ON STOP GQSUB 120

110 STOP ON: GOTO 130

120 SCREEN 0: END

130 Z=RND (—TIME)

140 GOSUB 10000
150 DEFUSR-60000 !

160 DEFÜSR 1=6001 2!

170 GOSUB 540
190 GOSUB 850
190 GOSUB 930

200 PÛKE 59000! ,0: POKE 60201', VI
210 SPRITE$(1)=LEFT*(S*,32)

220 PUT SPRITE 1 , < 124 , 176) , 1 5, 1

- 49 -

230 PUT SPRITE 2 , ( 1 28 , 246) , 2 , 2

240 FOR T=3 TD PEEK (59005 !) -1

250 PUT SPRITE T , (RND < 1 ) *256 , < T-3) *1 6) , 9

* 'T

260 NEXT T

270 FOR T=PEEK (59005! ) TD PEEK (59006 !) -1
280 PUT SPRITE T , (RND ( 1 ) *256 , < T-3) *1 6+B)
,9, T

290 NEXT T

300 POKE 59014! , PEEK (59006 !) -3
310 A=USR1 (0)

320 IF PEEK (59014 1 ) =0 THEN 200

330 SOUND 6,20; SOUND 1,12

340 SOUND 7, 7: SOUND 12,50: SOUND 8,16

350 SOUND 13,0

360 FOR T-l TD 100

370 SPRITE* (1)=A*

380 SPRITE* (1)=B*

390 NEXT T
400 SOUND 8,0

410 IF VPEEK (6191 ) =48 THEN 440
420 VPOKE 6191, VPEEK (6191 )-l
430 BOTO 200
440 IN=1
450 8=6183

460 IF VPEEK (A) < VPEEK (A+l 3) THEN 500 EL5

E IF VPEEK (A) = VPEEK (A+13) AND A061B6 TH

EN A=A+1 : GOTO 460

470 FOR T=6183 TO 6186

480 VPOKE T+13, VPEEK (T)

490 NEXT T

500 LOCATE 8,10

510 PR INT "APPUYER SUR <S>'’

520 IF INKEY*<>"S" THEN 520

530 A=USR (0) : BDTQ 180

540 RESTORE 730

550 FOR T=0 TO 71

560 READ A

570 S*=S*+CHR* ( A )

580 NEXT T

590 SPRITE* <2)=MID* (S* ,33,8)

600 FOR T =3 TO 10

610 SPRITE* CT)=MID*(S*,41,32)

620 NEXT T

- 50 -

630 FOR T=0 TO 23
640 READ A

650 VPOKE 1856+T MOD 8+ INT (T/B) *64 , A
660 NEXT T

670 VPOKE 8221 ,240s VPOKE 8222,160
680 VFOKE 8223,112
690 FOR T =0 TO 63

700 IF T <32 THEN A*=A*+CHR* (RND ( 1 ) *255)
ELSE B*=B*+CHR* ( RND ( 1 ) *255)

710 NEXT T
720 RETURN

730 DATA 1 ,3, 7, 7, 7, 3, 3, 3

740 DATA 7,15,31,63,60,60,48,0

750 DATA 128,192,224,224,224,192,192,192

760 DATA 224,240,248,252,60,60,12,0

770 DATA 24,24,60,126,126,126,102,66

780 DATA 0,0,1,3,15,15,31,63

790 DATA 63,31,15,15,3,1,0,0

SOO DATA 0,0,128,192,240,240,248,252

810 DATA 252, 24B, 240, 240, 192, 128,0,0

820 DATA 0,0,8,0,0,0,32,0

830 DATA 0,0,32,0,0,0,0,0

840 DATA 0,128,0,0,0,0,0,32

850 LOCATE 7,1

860 PR INT "ÜOOO"

B70 LOCATE 15,1
880 PR INT "2”

890 IF IN=1 THEN RETURN
900 LOCATE 20,1
910 PR INT "0000"

920 RETURN

930 PUT SPRITE 1 , (0,208) , 15, 1

940 FOR T=1 TO 100

950 LOCATE RND ( 1 > *31 , RND ( 1 ) *22+2

960 PRINT CHR* (232+ INT (RND ( 1 ) *3) *8) ; : NEX

T T

970 RETURN

10000 REM ROUTINE PRINCIPALE

10010 RESTORE 10070

10020 FOR T=60000 ! TO 60417!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

- 51 -

10070 DATA 33,64,24,1,192,2,62,32,205,86

,0,201,62,8,205,65,1,71,62,1

10080 DATA 205,135,0,35,205,74,0,203,96,

32,1 1,254,20,40,20,214,2,205,77,0

10090 DATA 24,13, 203 ,120,32,9, 254 , 220 , 40

,5,198,2,205,77,0,79,62,2,205,135

10100 DATA 0,58,120,230,254,1,40,23,203,

104, 32, 3B, 62, 160,205,77,0,35, 121 ,198

10110 DATA 4,205,77,0,62,1,50,120,230,24

, 19,205,74,0,254,24,32,7,62,0

10120 DATA 50,120,230,62,250,214,4,205,7

7.0. 58.121.230.60.50. 121 .230.254.0.32
10130 DATA 26,33,29,32,205,74,0,245,33,3
0,32, 205 ,74,0,33,29,32, 205 ,77,0

10140 DATA 241,33,30,32,205,77,0,62,3,24
5,205,152,235,241 ,60,33,125,230,190,32
10150 DATA 244,245,205,192,235,241,60,33
, 126,230,190,32,244,62,2,205,54,235,62,0
10160 DATA 50,132,230,62,1,205,54,235,58
, 132,230,254,1,200,58,134,230,254,0,200
10170 DATA 6,2,62,0,60,254,0,32,251,16,2

47.195.108. 234 . 205 .135.0. 205 .74.0

10180 DATA 71,35,205,74,0,79,62,3,245,20
5,81 ,235,241,60,33,126,230,190,32,244
10190 DATA 201,205,135,0,205,74,0,144,48
, 2 , 238 , 255 , 254 , 8 , 208 , 35 , 205 ,74,0,145
10200 DATA 48,2,238,255,254,8,208,62,255
,205 , 77,0 ,43,62 , 209 , 205 , 77 ,0,62,2
10210 DATA 205,135,0,62,246,205,77,0,62,
0,50, 120,230,62, 1 ,50, 132,230,205,192
10220 DATA 0,205,232,235,58,134,230,61,5
0,134,230,201 ,205, 135,0,205,74,0,254,209
10230 DATA 200,35,205,74,0,198,2,205,77,
0,43, 205 ,74,0,60, 254 , 208 ,32,9, 237
10240 DATA 95,35,205,77,0,43,62,16,205,7

7.0. 201 .205.135.0.205.74.0.254.209
10250 DATA 200,35,205,74,0,214,2,205,77,
0,43, 205 ,74,0,60, 254 , 208 ,32,9, 237
10260 DATA 95,35,205,77,0,43,62,16,205,7

7.0. 201.6.4.33.42.24. 205 .74.0

10270 DATA 60,254,58,40,4,205,77,0,201,6

2.48. 205 .77.0. 43.16. 236 . 20 1

- 52 -

PANIQUE

Même l'espace est encombré !

Récupérez l'énergie des capsules bleues en évitant les autres vaisseaux
devenant de plus en plus nombreux.

Pour déplacer votre vaisseau, utilisez les touches curseur gauche et
droite.

La partie principale de ce programme étant en assembleur, vous devrez
attendre l'explosion de votre vaisseau pour appuyer sur la touche STOP.

10 REM*-******»*

20 REM*PAN I QUE*

30 REM****#-****

40 SCREEN 1 ,2
50 COLOR 7,1,1
60 WÏDTH 32
70 KEY OFF
80 DEFUSR=60000 !

90 Z=RND<-TIME)

100 ON STOP GQSUB 120
110 STOP ON: GOTO 130
120 SCREEN 0: END
130 GOSUR 400
140 GOSUB 10000
150 PÜKE 59004!, 10
160 GOSUB 610: WY=1
170 SPRITE* (1)=S*

180 PUT SPRÎTE 1 , ( 120, 183) , 15, 1
190 PÜKE 59000! ,15: POKE 590031,0
200 A=USR (0)

210 PUT SPR I TE 1 , ( PEEK ( 59000 ! > *B-4 ,175) ,
9,1

- 55 -

220 SOUND 6 , 20: SOUND 7,7
230 SOUND 12,26s SOUND 8,16
240 SOUND 13,0
250 FOR T-l TÜ 100
260 SPRITEÆ ( 1 > ~D$

270 EPRITES ( 1 ) =" "

280 SPRITE* (l)-Ei
290 SPRITE$ ( 1 ) "

300 NEXT T

310 IF VPEEK C6191 > =48 THEN 340
320 VPOKE 6191 , VPEEK <6191 ) —1
330 GOTO 170
340 T=61B2

350 IF VPEEK (T) < VPEEK (T+ 15) THEN 370

360 IF T=61B5 OR VPEEK <T) >VPEEK (T+15) TH

EN FOR T=0 TO 3: VPOKE 6197+T , VPEEK (61 82+

T): NEXT T ELSE T=T+1 s GOTO 350

370 LOCATE 10,8

380 PR INT "PRESSER <S>“

390 IF INKEY$<>"S" THEN 390 ELSE 150

400 FOR T=0 TO 7

410 READ A

420 S*=S*+CHR:£<A)

430 NEXT T

440 FOR T=0 TO 15

450 READ A

460 VPOKE 760+T , A

470 NEXT T

480 FOR T=5B000! TO 58255!

490 POKE T , 2+RND ( 1 ) *30

500 NEXT T

510 FOR T=0 TO 31

520 D$=D$+CHR* ( RND < 1 ) *255 )

530 E^=E*+CHRÿ ( RND ( 1 ) *255 )

540 NEXT T
550 VPOKE 8204,81
560 VPOKE 8203,161
570 RETURN

580 DATA 24,24,24,24,60,126,102,66
590 DATA 66,102,126,60,24,24,24,24
600 DATA 0,0,16,56,16,40,0,0
610 LOCATE 6,1

- 56 -

620 PR INT "0000"

630 LOCATE 15,1
640 PR INT "2"

650 IF WY=1 THEN RETURN
660 LOCATE 21,1
670 PR INT "0000"

680 RETURN

10000 REM ROUTINE PRINCIPALE

10010 RESTORE 10070

10020 FOR T=60000 ! TO 60249!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 62,32,33,64,24,1,191,2,205,21
,8,62,0,50, 125,230,205,64,235,62
10080 DATA 1,205,135,0,35,205,74,0,245,6
2,8,205,65, 1 ,203,103,32,20,241,254
10090 DATA 16,40,39,214,8,205,77,0,58,12
0,230,61,50,120,230,195,178,234,203,127
10100 DATA32, 19,241 ,254,248,40, 15, 1(98,8,

205 .77.0. 58.120. 230 .60.50.120. 230 . 24
10110 DATA 1,241,205,206,234,254,96,32,9
,205,192,0,205,38,235, 195,197,234,254,95
10120 DATA 200,205,13,235,205,220,234,19

5.112.234.237.91.120.230.22.0. 33.224.26,
25

10130 DATA 205,74,0,201,58,122,230,60,50
, 122,230,95,22,0,33, 144,226,25, 126,95
10140 DATA 33,96,24,25,58, 123,230,60,50,
123,230,71,58,124,230, 184,32,9,62,0
10150 DATA 50,123,230,62,95,24,2,62,96,2

05.77.0. 201.33.64.24.17.220.230.1
10160 DATA 160,2,205,89,0,33,220,230,17,

96.24.1. 160.2.205.92.0. 201 .6.3

10170 DATA 33,41,24,205,74,0,254,57,40,5
, 60 , 205 ,77,0,201,62,48, 205 ,77,0
10180 DATA 43,16,236,201,58,125,230,60,5
O, 125,230,254,0,192,58,124,230,61,254,2
10190 DATA 216', 50, 124,230,62,0,50, 123,23
0,201

- 57 -

SAUVETAGE

Le sol argileux est en train d'engloutir la ville !

Évacuez les habitants, à l'aide de votre appareil.

Si vous réussissez à tous les sauver, un certain nombre de points vous
sera attribué en fonction du temps que vous aurez mis. Puis une autre ville
apparaîtra mais s'enfoncera plus rapidement.

Pour manœuvrer votre appareil, utilisez les touches du curseur.

10 REM ******* ****

20 REM*SAUVETAGE*

30 REM***********

40 SCREEIM 1,2
50 WIDTH 32
60 KEY OFF
70 Z=RND (—TIME)

80 ON STOP GOSUB 100

90 STOP ON: GOTO 110

100 COLOR 10,1,1: 5CREEN 0: END

110 COLOR 1,2,1

120 GOSUB 610

130 GOSUB 10000

140 VI~50ïNV=2

150 DEFUSR=6O000!

160 POKE 59000! ,VI
170 PDKE 59001 ! ,5
180 CLS

190 GOSUB 1030
200 GOSUB 860
210 POKE 5 90 02!, 20
220 N=0

- 59 -

230 XI «120: Yl=l 6: PK=6223
240 SPRITE* < 1) =A*

250 A=STICK (0) : Z=USR(0> s 1F PEEK ( 59002 !) =
0 THEN 530

260 IF A=7 AND XK >8 THEN X1=X1-B:PK=PK-
1: SPRITE* (1)=B*

270 IF A=3 AND Xl< >240 THEN X1=X1+8:PK“P
K+ 1 s SF'R I TE* ( 1 ) =A*

280 IF A=1 AND Yl<>16 THEN Y 1 =Y 1 —S : F*K=PK

-32

290 IF A=5 AND Y10176 THEN Y1=Y1+B: PK=P
K+32

300 PUT SPRITE 1 , (XI , Y1 > , 13, 1
310 A=VPEEK (PK) ï B=VPEEK (PK+1 )

320 IF A=32 AND B=32 THEN 250

330 IF A =2 40 OR B=240 THEN 440

340 IF A=24B THEN VPOKE PK, 32: PLAY ‘'05L6

4CD" : N=N+ 1 : SC=SC+ 1

350 IF B=248 THEN VPOKE PK+1 ,32: PLAY "05

L64CD" ; N=N+ 1 : SC=SC+1

360 GOSUB 1030

370 IF N<5 THEN 250

380 B0=1

390 IF PEEK ( 59002 I) >2 THEN SC-SC+1 : PLAY
"05L64CD": GOSUB i030:PÛKE 59002 !, PEEK < 59
002!) -2 ELSE 410

400 IF PLAY (O) =—l THEN 400 ELSE 390
410 B0=0

420 IF VI >10 THEN VI=VI-3
430 GOTO 160

440 SOUND 6,20: SOUND 8,16
450 SOUND 7, 7: SOUND 12,26
460 SOUND 13,0

470 PUT SPRITE 1 , ( X 1 , Y 1-8) , 9, 1
480 FOR T=1 TO 100
490 SPRITE* (1)=C*

500 SPRITE* { 1 ) «D*

510 NEXT T

520 SOUND 7,254

530 IF NV=0 THEN 560

540 NV=NV-1: GOSUB 1030

550 GOTO 230

- 60 -

560 IF SORE THEN RE=5C: GOSUB 1030

570 LOCATE 8,10

580 PR INT "APPUYER SUR <S>"

590 IF INKEYKV'S" THEN 590

600 SC=0: GOTO 140
610 FOR T=0 TO 15
620 READ A

630 VPOKE 1920— 56* (T>7)+T,A

640 NEXT T

650 VPOKE 8222,30

660 VPOKE 8219,144

670 VPOKE 8223,242

680 FOR T— O TO 47

690 READ A

700 S*=S*+CHR* (A)

710 NEXT T

720 A*=LEFT* (S* , 24)

730 B*=MID* { S* , 25 ,24)

740 FOR T=0 TO 63

750 IF T<32 THEN C*=C*+CHR* (RND ( 1 ) *255)
ELSE D*=D*+CHR* (RND ( 1 ) *255)

760 NEXT T
770 RETURN

780 DATA 255,129,129,129,129,129,129,255

790 DATA 0,0,0,84,124,16,56,108

800 DATA 128,192,224,240,255,255,255,127

810 DATA 0,0, O, 0,0, O, 0,0

820 DATA 0,0,0,224,248,254,255,254

830 DATA 0,0,0,7,31,127,255,127

840 DATA 0,0,0, 0,0, O, 0,0

850 DATA 1,3,7,15,255,255,255,254

860 PUT SF'R I TE 1 ,( 100,208) ,, 1

870 FOR X=688G TQ 6911

BBO VPDKE X , 21 9

890 NEXT X

900 FOR X=0 TO 31 STEP 2
910 A=INT (RND (i)*15)+4
920 FOR Y=A TO 22
930 LOCATE X,Y

940 PR I NT CHR* ( 240) ; CHR* ( 240 ) ;

950 NEXT Y
960 NEXT X

- 61 -

970 FGR T“1 T0 5
980 X=<RNDC1) *30) +-2
990 Y =22

ÎOOO Z-VPEEK <6144+X+Y*32) s IF Z=240 THEN
Y=Y— 1 : GOTO 1000

1010 IF Z=32 THEN VPOKE 6144+X+Y*32, 248:
NEXT T ELSE 980
1020 RETURN
1030 LOCATE 7,1

1040 F'RINT RIGHT$ (STR$ ( 10000+50 ,4)

1050 IF BQ=1 THEN RETURN
1060 LOCATE 15,1
1070 F'RINT NV
1080 LOCATE 21,1

1090 PRINT RIGHT*<STR$UGOOO+RE) ,4)

1100 RETURN

10000 REM EFFONDREMENT VILLE
10010 FOR T =60000 ! TO 60047!

10020 READ A
10030 POKE T, A
10040 NEXT T
10050 RETURN

10060 DATA 58,121,230,61,50,121,230,254
O, 192,58,120,230,50,121,230,33,64,24,1
10070 DATA 128,2, 17, 12B, 187,205,89,0, 17
96,24,1,128,2,33, 128,187,205,92,0
10080 DATA 58,122,230,61,50,122,230,201

- 62 -

TANKS

Dans ce jeu, vous devez empêcher les tanks, qui attaquent en vagues
de plus en plus rapides, de traverser la rivière.

Vous pourrez vous déplacer horizontalement à l'aide des touches cur-
seur gauche et droite, tirer avec la touche curseur haut, modifier la longueur
du tir en appuyant simultanément sur les touches curseur bas et gauche pour
le diminuer, sur les touches curseur bas et droite pour l'augmenter. Cette
longueur est inscrite entre le score et le record.

10 REM*******

20 REM* TANKS*

30 REM*******

40 SCREEN 1 , 2
50 COLOR 5,3,12
60 WIDTH 32
70 KEY OFF
80 DEFUSR=6Q000 !

90 DEFUSR 1=60072!

100 DEFLJ5R2=60178!

110 ON STOP GGSUB 130

120, STOP ON: GOTO 140

1 30 COLOR 10,1,1: SCREEN 0 s END

140 GOSUB 570

150 GOSUB 10000

160 GOSUB 890

170 GOSUB 940

ISO X 1 = 120: DI = 10s LOCATE 14,1:PRINT DI
190 VI=4

200 POKE 59000 ! ,2: POKE 59001!, O
210 POKE 59002! ,0s POKE 59006!, O

- 65 -

220 FOR T-3 TO 12

230 PUT SPRITE T, (255,0) ,9, T

240 NEXT T

230 PÜKE 60080! ,VI

260 A=STICK(0) : Z-USR1 <0>

270 IF PEEK (59006 !)=1 THEN 480
280 IF A=7 AND Xl< >24 THEN Xl=Xl-4
290 IF A=3 AND Xl< >232 THEN Xl=Xl+4
300 IF A= 1 AND C0=0 THEN CO- 1 : X2=X 1 : Y2=l
68 : D 1 =D I : SPR I TE* (2 J =C*

310 IF A=4 AND DK >36 THEN DI-DI+1 : LOCAT
E 14,1: PR INT DIsBEEP

320 IF A=6 AND DK >10 THEN DI=DI”1 : LOCAT

E 1 4 , 1 : PR I NT Dis BEEP

330 PUT SPRITE 2 , ( X2 , Y2) , 1 , 2

340 IF C0=0 THEN 460

350 IF Y2- 1 68-4*D 1 THEN Y2-209: CO-O: SPRI
TE*(2)=D*: Z=USR(0) ELSE Y2=Y2-4:GQT0 460
360 B-PEEK (59004 ! )

370 IF B- 13 THEN PLAY ''Q1L64C" : GOTO 460

3B0 PUT SPRITE B, (255,209) , ,B

390 SOUND 6,20: SOUND 7,7

400 SOUND 12,26: SOUND 8,16

410 SOUND 13,0

420 POKE 59004!, 13

430 SC=SC+1

440 GOSUB 890

450 IF SC MOD 10=0 THEN IF VIOl THEN VI

“VI - 1 : GOTO 200 ELSE 200

460 PUT SPRITE 1 , (XI , 168) , 15, 1

470 GOTO 260

480 SOUND 7,254

490 PLAY "05L64CDE"

500 IF SORE THEN RE=SC: GOSUB B90

510 LOCATE 8,10

520 PR INT "APPUYER SUR <S>"

530 IF INKEY*<>"S" THEN 530

540 PUT SPRITE 1,(0,2081,15,1

550 C0=0: Y2=209

560 SC=0: CLS: GOTO 160

570 RESTORE 750

580 FOR T=0 TO 79

- 66 -

590 RE AD A

600 S*=S*+CHR* (A)

610 NE XT T

620 FOR T=3* TO 12

630 SPRITE* (T)=LEFT*(S* ,32)

640 NEXT T

650 SPRITE*(l)=mD* (S*,33,32)

660 C*=M ID* <S* , 65,8)

670 D*=M I D* ( S* , 73 , 8 )

680 FOR T=0 TO 31

690 RE AD A

700 VPOKE 1848+T, A

710 NEXT T

720 VPOKE 8220,44

730 VPOKE B22 1,220

740 RETURN

750 DATA O, 0,0, 0,0, O, 0,0
760 DATA 0,0, O, O, O, O, 0,0

770 DATA 198,254,254,254,198,214,214,254

780 DATA 254,254,214,16,16,0,0,0

790 DATA 0,0, 0,0, O, 4, 4, 4

800 DATA 4,255,255,117,117,113,255,255

aïO DATA O, 0,0, 0,0, 0,0,0

820 DATA 0,240,240,192,192,192,240,240

830 DATA 4, 4, 4, 0,0, 0,0,0

840 DATA 136,2,41,132,17,72,34,8

850 DATA 255,255,255,255,0,0,0,0

860 DATA 202,255,255,255,255,255,255,255

B70 DATA 255,255,255,255,255,255,255,255

880 DATA 255,255,255,255,255,255,255,202

890 LOCATE 7,1

900 PRINT RIGHT* (STR* ( 10000+SC) ,4)

910 LOCATE 21 , 1

920 PRINT RIGHT*(STR*( 10000+RE) ,4)

930 RETURN
940 Z=USR2 (O)

950 LOCATE 0,13
960 FOR T =0 TO 31
970 PRINT CHR* (232) ;

9B0 NEXT T

990 FOR T=0 TO 63

1000 PRINT CHR* (233) ;

1010 NEXT T

- 67 -

1020 FOR T=0 TO 31
1030 PRINT CHR$C234>;

1040 NEXT T
1050 RETURN

10000 REM DEPLACEMENT SPRITE+TOUCHE?

1001 O RESTORE 10070

10020 FOR T-ÛOOOO! TO 60189!

10030 RE AD A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 62,13,50,124,230,62,2,205,135
,0,205,74,0,214,4,71,35,205,74,0
10080 DATA 214,8,79,62,3,245,50,125,230,
205,135,234,241 ,60,254, 13,32,243,201,205
10090 DATA 135 , 0,205 ,74,0, 144,48,2, 23B , 2

55 . 254 . 6 . 208 . 35 . 205 .74.0. 145.48.2
10100 DATA 238,255,254,6,208,58,125,230,
50,124, 230 , 201 ,58,122, 230 , 60 , 50 , 122,230 ,
254

10110 DATA 4, 192,62,0,50, 122, 230, 5B, 121 ,
230,60,50, 121,230,254,15,32,32,62,0
10120 DATA 50,121,230,58,120,230,254,12,

40 . 20 . 60.50 . 120 . 230 . 205 .135.0. 62. 24.205
10130 DATA 77,0,35,237,95,198,56,205,77,
0,58,120,230,254,2,200,62,2,245,205
10140 DATA 135,0,205,74,0,60,205,77,0,25

4.130.32. 13.35.205.74.0. 254.255.40
10150 DATA 5,62,1,50,126,230,241,71,58,1
20,230,184,200,120,60, 195,234,234,33,96
10160 DATA 24,1,160,2,62,231,205,86,0,20

- 68 -

S.O.S

Récupérez les parachutistes à l'aide de votre barque. Mais celle-ci est
entraînée vers la berge.

Le chiffre, situé entre le score et le record, est le nombre de parachutis-
tes que contient votre barque. Si celui-ci est à S, vous ne pourrez plus récu-
pérer de parachutiste.

Pour vider votre barque, regagnez la berge.

Elle peut être déplacée à l’aide des touches curseur gauche et droite.

10 REM*******

20 REM*S.O.S*

30 REM*******

40 SCREEN 1,2
50 COLOR 8,7,12
60 WIDTH 32
70 KEY OFF
80 DEFUSR=600Q0!

90 ON STOP GOSÜB 110

100 STOP ON: GOTO 120

110 COLOR 10, 1 , 1: SCREEN O: END

120 GO SUE 520

130 GOSÜB 10000

140 GOSÜB 920

150 GOSÜB 870

160 FOR T~2 TO 31

170 PUT SPRITE T, (255,0) , 13, T

180 NEXT T

190 X 1=208

200 N=0: LOCATE 15,1: PR INT N
210 C0=1 :DE=0: 01=48
220 PGKE 590001,0

- 71 -

230 F'OKE 5 90 01!, 2
240 POKE 600 16!, VI
250 A=STICK(0) :Z=USR(0)

260 VPÜKE 1 B55 , VPEEK ( 1 855 ) XOR 255
270 Z=PEEK <59004 ! )

2B0 IF Z— 2 AND N“5 THEN Z = 1

290 IF Z=2 AND N<>5 THEN BEEP: SC=SC+1 : GO

SUB B70:N=N+1

300 IF Z=1 THEN PLAY "Q1L64C" : DE-DE+l : VP
OKE 620 1 +DE , 240 : IF DE®5 THEN 400
310 IF X 1=20B AND N< >0 THEN PLAY "a5L64C
D" : N=0

320 IF A=7 AND Xl>19 THEN X1=X1~4
330 IF A=3 AND X 1 < 205 THEN Xl = Xl+4
340 IF X1O208 THEN X1=X1 + 1
350 PUT SPRITE 1 , < X 1 , 160) , 1 , 1
360 LOCATE 15,1: PR INT N
370 IF PEEK ( 59005 ! ) < >22 THEN 250
380 IF VI >23 THEN VI=VI-8
390 GOTO 220

400 IF SORE THEN RE=SC:GOSUB B70

410 LOCATE 9,10

420 PR INT "APPUYER SUR <S>"

430 IF INKEY$<>"S" THEN 430

440 LOCATE 9,10

450 PRINT SPACEï < 15)

460 N=0

470 FOR X-6202 TO 6206
480 VPÜKE X , 32
490 NEXT X

500 SC=0: PUT SPRITE 1,(0,208),,!

510 GOTO 150
520 RESTORE 750
530 FOR T=0 TO 55
540 READ A
550 S$=S*+CHR*(A>

560 NEXT T

570 SPRITE*<1 )=LEFT# (S$,24)

580 FOR T =2 TO 31

590 SPRITE$(T)=MID$ <S$,25,32)

600 NEXT T

610 FOR T=0 TO 23

- 72 -

620 READ A
630 VPOKE 1848+T , A
640 NEXT T
650 VPOKE 8219,64
660 VPOKE 8221,167
670 VPOKE 8220,71
680 FOR T=0 TO 15
690 READ A

700 VPOKE 1920+T— 56# (T>7) ,A

710 NEXT T

720 VPOKE 8222,23

730 VPOKE 8223,164

740 RETURN

750 DATA 0,0,0,240,255,255,127,63

760 DATA 0,0, 0,0, 0,0, 0,0

770 DATA 0,0,0,15,255,255,254,252

780 DATA 0,0,3,7,15,31,31,21

790 DATA 8, 4, 2, 1,0, 0,0,0

800 DATA 0,0,248,252,254,255,255,85

810 DATA 2,4,8,80,224,64,160,0

820 DATA 0,0,0,0,0,0,0,153

830 DATA 255,255,255,255,255,255,255,255

840 DATA 63,127,255,255,255,255,255,255

850 DATA 24,24,126,126,24,24,24,24

860 DATA 0, 0,0,0, 0, 1 ,3,7

870 LOCATE B , 1

880 PRINT RIGHT*(STR$ (10000+SC) ,4)

890 LOCATE 21,1

900 PRINT RIGHT$ (STR# ( 1 OOGO+RE ) 4 )

910 RETURN

920 FOR X=0 TO 27

930 FOR Y =2 1 TO 24

940 VPOKE 6144+Y+32+X ,219

950 NEXT Y

960 NEXT X

970 FOR X=0 TO 27

980 LOCATE X,20

990 PRINT CHRï (231 ) ;

1000 NEXT X /

101 O FOR X=28 TO 31
1020 FOR Y— 20 TQ 24
1030 VPOKE 61 44+Y*32+X , 232

- 73 -

1040 NEXT V
1050 NEXT X
1060 VPOKE 6812,233
1070 VPOKE 6907,248
1080 RETURN

ÎOOOO REM DEPLACEMENT PARA+SAUVE' 5

10010 RESTORE 10070

10020 FOR T— 60000 ! TO 60167!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 62,0,50,124,230,50,125,230,58
, 120,230,60,50,120,230,254,50,32,32,62
10080 DATA 0,50,120,230,58,121,230,254,2

2.40.20.60.50. 121 .230.205.135.0. 62.24

1 0090 DATA 205 ,77,0, 35 , 237 ,95,198,48, 205
,77,0,62,3,245,50, 126,230,205, 163,234
ÎOIOO DATA 241,60,254,23,32,243,201,205,

135.0. 205 .74.0. 254 . 0 . 200 . 60 . 254 .152.32
10110 DATA 53,5B, 126,230,50, 125,230,62,0
, 205 ,77,0,35, 205 ,74,0, 245 , 62 , 255 , 205
10120 DATA 77,0,62,1,205,135,0,35,205,74
,0,71,241 ,144,48,2,238,255,254,8

10130 DATA 56,6,62,1,50,124,230,201,62,2

,50,124,230,201 ,205,77,0,6,1 ,237

10140 DATA 95,254,64,48,2,6,255,35,205,7

4.0. 254.24.32.2.6.1 .254.208.32
10150 DATA 2,6,255,128,205,77,0,201

- 74 -

CAVERNES

Le but du jeu est de ramasser les sacs d'or dispersés dans 8 cavernes.
Mais attention aux monstres !

Si vous réussissez à récupérer tous les sacs d'or, vous devrez remonter
à la surface pour changer de cavernes...

Le nombre entre le score et le record est votre bonus.

Si J'un des monstres vous touche, vous perdrez 20 points et, si votre
score ne vous le permet pas, la partie sera finie, de même si le bonus est à 0.
Pour vous déplacer, utilisez les touches du curseur.

10 REM*******-#**

20 REM*CAVERNES*

30 REM**********

40 SCREEN 1,2
50 WIDTH 32
60 KEY OFF
70 COL.OR 10,1,1
BO Z=RND (-TIME)

90 DEFUSR— 60000 !

100 ON STOP GÜSUB 120

110 STOP GN: GOTO 130

120 SCREENO: COLQR 10, 1,1 s END

130 GO SUE 720

140 GDBUB 10000

150 Nl-1

160 GOSÜB 1110

170 GOSÜB 1290

180 GOSÜB 1340

190 RESTORE 250

200 FOR T=2 TO 5

77 -

210 READ A

220 X-RIMD < 1 ) *200+20

230 PUT SP R I TE T , ( X , T*32-4) , A , T

240 NEXT T

250 DATA 9, 2, 4, S

260 POKE 590001,247

270 POKE 59001 ! ,6

280 POKE 59002 ! , 249

290 POKE 59003!, S

300 TIME— O

310 PUT SPRITE 1 , ( 120, 32) , 7 , 1
320 POKE 59006!, N 1+5
330 60=45— INT (TIME/50)

340 IF BQ>-0 THEN 440
350 PLAY "02L64GABAG"

360 IF SORE THEN RE=SC: GOSUB 1290

370 LÜCATE S ,23

380 PR INT "APPUYER SUR <S>";

390 IF PLAY (0) =— 1 THEN 390

400 IF INKEY*<>"S" THEN 400

410 CLS: PUT SPRITE 1,(0,208),,1

420 SC=0

430 GOTO 150

440 LOCATE 14,1

450 PR INT BO

460 Z=USR (0)

470 Z=PEEK (59010 ! )

480 IF NB<N1 OR PEEK (59005 ! K >32 THEN 59
0

490 SC=SC+BO: GOSUB 1290

500 IF NI <8 THEN N1=N1+1:G0T0 570

510 LOCATE 8,23

520 PRINT "FIN DES CAVERNES";

530 FOR T= I TO 2000: NEXT T

540 LOCATE 8,23

550 PRINT SPACE* ( 16) ;

560 GOTO 350

570 CLS: PUT SPRITE1 , (0 , 208) , , 1
580 GOTO 160

590 IF 2=0 THEN FOR T=1 TO 40: NEXT T: GOT
O 330

600 IF 2 >5 THEN 680
610 PLAY "L64Ü 1DEDEDEDE"

- 78 -

620 SPRITEt (1)=""

630 SPRITE* ( 1) =A*

640 IF PLAY(0)=-1 THEN 620

650 PUT SPRITE 1 , ( 120, 32) , , 1

660 IF SOI 9 THEN SC=SC-20s GOSUB 1290 EL

SE SC=0 : GOTO 350

670 GOTO 330

680 PUT SPRITE Z, (0,209),, Z
690 PLAY " 05L64CD "

700 NB=NB+1

710 IF PLAY (0) =0 THEN 330 ELSE 710

720 RESTORE 960

730 FOR T=0 TO 95

740 RE AD A

750 S*=S*+CHR* (A)

760 NEXT T

770 A*=LEFT*(S* ,32)

780 SPRITE* ( 1 ) =A*

790 FOR T =2 TO 5

800 SPR I TE* ( T ) =M I D* ( S* , 33 , 32 )

810 NEXT T

820 FOR T =6 TÜ 13

830 SPRITE* (T) =MID* (S* , 65, 32)

840 NEXT T

850 FOR T=Q TO 7

860 RE AD A

870 VPOKË 1 B56+T , A

880 NEXT T

890 VPOKE 8221,89

900 FOR T =0 TO 15

910 READ A

920 VPOKE 1 920+T , A

930 NEXT T

940 VPOKE 8222,161

950 RETURN

960 DATA 0,3,7,7,3,3,15,23

970 DATA 23,23,23,7,6,6,14,30

980 DATA 0,192,224,224,192,192,240,232

990 DATA 232,232,232,224,96,96,112,120

1000 DATA 7,15,31,19,31,31,31,24

1010 DATA 31,31,31,31,31,31,31,21

1020 DATA 224, 240, 248, 200, 24B, 248, 248, 24

1030 DATA 248,248,248,248,248,248,248,16

- 79 -

8

1040
1 050
1060
2

1070

O

1080

5

1090
1 100
1110
1120
1 130
1140
1150
1160
1 170
1 180
1190
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420

DATA 10, 15,7,3,7,31 ,63,255
DATA 255,255,127,127,63,63,15,7
DATA 160,192,192,128,192,240,248,25

DATA 254 , 254 , 255 , 255 , 254 , 254 , 252 , 24

DATA 255,126, 129,129, 129,129,126,25

DATA 24,24,24,63,63,24,24,24
DATA 24,24,24,252,252,24,24,24
FQR Y=6 TO 24 STEP 4
LOCATE 0 , Y
FOR X=0 TO 31
PR INT CHR$ (232) ;

NEXT X

NEXT Y

FOR N=0 TO 1

FOR Y =5 TO 17 STEP 4

G 08 U B 1230

NEXT Y

NEXT N

RETURN

X=INT (RND ( 1 > *6) *2+2+N*16
FOR T~Û TO 4
LOCATE X , Y+T

PR INT CHR4:(240) ; CHRÏ (241 >

NEXT T
RETURN
LOCATE 7,1

PR INT RIBHT* (STRï C10000+SC» ,4)
LOCATE 21,1

PR INT RISHT$<STR*UQOOO+RE> ,4)
RETURN

RESTORE 1440
FOR T =6 TO 13
PUT SPRITE T, CO, 209) , ,T
NEXT T

FOR T=6 TO 5+N1
READ X , Y

PUT SPRITE T , < X , Y) , 1 1 ,T

NEXT T

NB=0

- 80 -

1430 RETURN

1440 DATA 124,160,220,64,44,128,90,96,20

0,128,60,64,50, 160, 108,96

10000 REM ROUTINE PRINCIPALE

10010 RESTORE 10070

10020 FOR T=600Q0! TD 60302!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 62,0,50,130,230,205,76,235,62
, 1 ,205, 135,0,205,74,0,71 ,35,205,74
100B0 DATA 0,79,197,62,8,205,65,1,193,20
3,103,32,20,121,254,8,40,101 ,205,28
10090 DATA 235,254,0,32,94,121,214,8,205
,77,0,24,86,203, 127,32,20,121 ,2S4, 240
10100 DATA 40,77,205,28,235,254,0,32,70,

121 . 198.8.205.77.0. 24.62.203.1 11.32
10110 DATA 26,205,55,235,205,74,0,254,24
0,32,48,62,1 ,205, 135,0, 120,214,8,205
10120 DATA 77,0,205,192,0,24,32,203,119,

32.28.205.55.235.17.64.0. 25.205.74
10130 DATA 0,254,240,32,14,62,1,205,135,
0,120, 198,8,205,77,0,205,192,0,62

10140 DATA 2,1,120,230,245,205,255,234,3
,241,60, 254 ,6,32, 245 , 205 , 76 , 235 ,201, 205
10150 DATA 135, 0,35, 205, 74, O, B7, 10, 130,2

45.205.77.0. 241 .254.240.48.3.254.10
10160 DATA 208,10,238,255,198,1,2,201,12
O , 254 ,32,40,19, 254 ,64,40,15, 254 , 96 , 40
10170 DATA 11, 254, 12B, 40, 7, 254,160, 40, 3,

62.1.201.62.0. 201 .33.0.24.22.0

10180 DATA 89,203,59,203,59,203,59,25,23

5.104.38.0. 41.41.25.201 .62.1.205.135
10190 DATA 0,205,74,0,71,50,125,230,35,2

05.74.0. 79.58. 126.230.245.50.131 .230
10200 DATA 205,110,235,241,61,254,1,32,2

43.201.205.135.0. 205.74.0.144.48.2.238
10210 DATA 255,254,16,208,35,205,74,0,14
5,48,2,238,255,254, 10,208,58,131 ,230,50
10220 DATA 130,230,201

- 81 -

MISSION

Défendez votre planète contre les attaques répétées d'étranges créatures.
Si 5 d'entre elles parviennent à se poser, vous aurez perdu.

Pour déplacer votre base, utilisez les touches curseur gauche et droite ;
pour tirer la touche curseur haut.

Vous pouvez rendre uniforme le mouvement des envahisseurs en met-
tant à 1 la variable JEU en ligne 90.

10 REM********-#

20 REM*MISSION*

30 REM*********

40 SCREEN 1,2
50 COLOR 10,1,1
60 WIDTH 32
70 KEY OFF
BO DEFUSR=60000 !

90 VI=5:0EU=2

100 GN STOP G05UB 120

110 STOP ON: GOTO 130

120 SCREEN O: END

130 GOSUB 500

140 GGSUB 10000

150 IF JEUX=1 THEN PÜKE 60228 !, 128: VI=1
160 GOSUB 620
170 GOSUB 740

1B0 PUT SPRITE 1 , (120, 160) , 15, 1

190 PUT SPRITE 2,(80,2091,9,2

200 FOR T=3 TO 7

210 PUT SPRITE T, (255, (T-3>*27) ,2, T

- 83 -

220 NEXT T

230 SPRITEÆ (1) =AÆ

240 IN=1 : PLAY "1.6401"

250 Z=USR (O)

260 FOR T=1 TO Vis NEXT T
270 Z=PEEK «59051 ! >

280 IF Z=0 THEN 250
290 IF Z =50 THEN 330
300 SC=SC+1 : GOSUB 740
310 PLAY "OIBC"

320 GOTO 250
330 PLAY "CDCD"

340 EPRITES ( 1 ) =A$

350 SF'RITEÏ ( 1 ) = " "

360 IF PLAY «O) =— 1 THEN 340

370 IN=0

3B0 NE=NE+1

390 GOSUB 740

400 IF NE— 5 THEN 420

410 GOTO 160

420 IF SORE THEN RE=SC: GOSUB 740
430 PLAY " 07CDE"

440 LDCATE 8,10

450 PR INT "APPUYER SUR <S>"

460 IF INKEY$<>"S" THEN 460

470 PUT SF'RITE 1,(0,209>,,1

4B0 CLS : SC=0 : NE-0

490 GOTO 160

500 VPOKE B219, 144

510 RESTORE 660

520 FOR T =0 TO 63

530 READ A

540 S*=S$+CHR* (A)

550 NEXT T

560 A$=LEFT $ « S^ , 32 )

570 SPRITE$(2)=MID*(S:f,33,8)

580 FOR T=3 TO 7

590 SPRITEJ:<T)=MIDt(S$,41,24)

600 NEXT T
610 RETURN

620 FOR T=6B4B TO 6711
630 VPOKE T, 219
640 NEXT T

- 84 -

650 RETURN

660 DATA 1,7, 7, 7, 7, 7, 7, 7

670 DATA 1,199,223,255,255,231,195,199

680 DATA 128,224,224,224,224,224,224,224

690 DATA 128,227,251,255,255,231,195,227

700 DATA 16, 16, 16,84,84 ,6B, 68, 6B

710 DATA 1,7,6,15,31,57,56,16

720 DATA 0,0, O, 0,0, O, 0,0

730 DATA 224,248,216,252,254,231,7,2

740 LOCATE 7,1

750 PRINT RIGHT$ (STR$ < 10000+SC) ,4)

760 IF IN=1 THEN RETURN
770 LOCATE 14,1
780 PRINT NE
790 LOCATE 20,1

BOO PRINT RIGHT$ (STR:f ( 1Q000+-RE) ,4)

810 RETURN

10000 REM ROUTINE PRINCIPALE

10010 RESTÜRE 10070

10020 FOR T=60000! TQ 6032B !

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 62,0,50,171,230,205,78,235,62
, 1 , 205 , 1 35 , O , 35 , 205 ,74,0, 245 , 62 , B
ÎOOBO DATA 205,65,1,193,203,103,32,12,12
0 , 254 ,8,40,51,214,4, 205 ,77,0,24,44
10090 DATA 203,127,32,12,120,254,232,40,

35.198.4.205.77.0. 24.28.203.1 11.32.24
10100 DATA 62,2,205,135,0,205,74,0,254,2

09.32.12.62.152.205.77.0. 35.120.198
10110 DATA 4,205,77,0,62,2,205,135,0,205
,74,0, 254 , 209 ,40,19, 254 ,24,32,7

10120 DATA 62, 209, 205, 77, 0,24, B, 214, 8, 20

5.77.0. 205.78.235.1 . 120.230.62.3

10130 DATA 245,205,228,234,241,3,60,254,

8.32.245.201.205.135.0. 205.74.0.60.205
10140 DATA 77,0,254,168,32,34,35,205,74,
0 , 254 , 255 ,40,6,62,50,50,171, 230 , 201
10150 DATA 43,62,24,205,77,0,237,95,198,

56.35. 205 .77.0. 237 *_95 , 230 , 1 ; 2 , 201

10160 DATA 35,205,74,0,254,255,87,200,10

,254,0,40,8, 122, 198,2,205,77,0,24

10170 DATA 6,122,214,2,205,77,0,254,30,4

8,5,62,1 ,2,24,21,254,220,56,5

10180 DATA 62,0,2,24,12,237,95,254,127,3

2,6,10,238,255,198,2,2,201,58,171

10190 DATA 230,254,0,192,62,2,205,135,0,

205 .74.0. 71.35. 205 .74.0.214.5.79

10200 DATA 62,3,50,170,230,205,117,235,5
8,170,230,60,254,8,32,242,201,205,135,0
10210 DATA 205,74,0,144,48,2,238,255,254
, 12,208,35,205,74,0,145,48,2,238,255
10220 DATA 254,6,208,58,170,230,50,171,2

30 . 205 .135.0. 35.62. 255 . 205 .77.0.62.2
10230 DATA 205,135,0,62,209,205,77,0,201

- 86 -

SLALOM

Réalisez le meilleur temps dans cette descente à ski où vous devrez fran-
chir 20 portes.

Chaque porte ratée entraînera une pénalité d'une demi-seconde. De
même, changer de sens vous fera perdre du temps.

Pour manœuvrer votre skieur, utilisez les touches curseur gauche et
droite.

10 REM******-**

20 REM*BLALOM*

30 REM********

40 SCREEN 1 , 2
50 COLOR 1,15,15
60 KEY OFF

70 LA=30 : F'ÛKE 59005!, LA
80 DEFUSR=600O0 !

90 Z=filMD <-TIME)

100 ÜN STOP BOSUB 120

110 STOP ON: GOTO 130

120 COLOR 10 ,1,1 a SCREEN O: END

130 GOSUB 520

140 GOSUB 10000

150 SPRITE* <1>=A*

160 X 1=128: D=— 2

170 CL S

180 GOSUB 740

190 PUT SPRITE 1, (XI ,112) ,9, 1
200 PUT SPRITE 3, ( 1 10, 1 12) ,4,3

- 89 -

210 PUT SPRITE 4, < 110+LA, 112) ,4,4

220 Z=RND < 1 ) *127+50

230 PUT SPRITE 5 , (Z ,200) , 4 ,5

240 PUT SPRITE 6 , < Z+LA , 200) , 4 , 6

250 IF STICK <0)=0 THEN 250

260 TIME=0

270 PÜKE 59003 ! , O

2B0 PLAY "01L64"

290 LÜCATE 7,1
300 SC-TIME/50
310 PRINT SC
320 A=5TICK <0)

330 IF A=7 THEN D=-2s SPRITE* ( 1 ) -A$s TI ME=
TIME+5

340 JF A=3 THEN D=2: SPRITE* I 1 > =B*: TIME=T
IME+5

350 IF D=-2 AND Xl< >24 THEN X1=X1-B
360 IF D=2 AND Xl< >208 THEN X1=X1+B
370 IF XI =24 DR XI =208 THEN 290
380 Z=USR (0)

390 PUT SPRITE 1 , ( XI , 1 12) , , 1

400 IF PEEK (59002 ! ) =1 THEN PLAY ,, C'*:TIME

=T I ME+25

410 IF PEEK <59003 !) <40 THEN 290
420 CL S

430 PLAY "05CDEDC"

440 IF SCCRE OR RE=0 THEN RE=SC
450 GOSUB 740
460 LOCATE 9,10
470 D$=INKEY*

480 PRINT "APPUYER SUR <S>"

490 IF INKEY*< >"S" THEN 490

500 SC=0

510 GOTO 150

520 RESTORE 640

530 FOR T =0 TO 79

540 READ A

550 S*=S*+CHR* (A)

560 NEXT T

570 A*=LEFT* (S*, 32)

580 B*=MID*<S*,33,32)

590 Ci=MID*<S$,65,16)

- 90 -

600 FOR T=3 TO 6
610 SPRITE* (T) =C*

620 NEXT T
630 RETURN

640 DATA 3,3,3,1,7,11,11,19

650 DATA 4,5,6,152,97,38,24,0

660 DATA 128,128,128,0,192,160,160,144

670 DATA 224,198,88,96,128,0,0,0

680 DATA 1,1, 1,0, 3, 5, 5, 9

690 DATA 7,99,26,6,1,0,0,0

700 DATA 192,192,192,128,224,208,208,200

710 DATA 32,160,96,25,134,100,24,0

720 DATA 16,24,28,30,31,16,16,16

730 DATA 16,16,16,16,16,16,56,16

740 LOCATE 7,1

750 PRINT SC

760 LOCATE 18,1

770 PRINT RE

780 RETURN

10000 REM DEPLACEMENT PORTES+PASSE^

10010 RESTÜRE 10070

10020 FOR T=600G0! TO 60130!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 62,0,50,122,230,62,1,205,135,
0,205,74,0,214,8,71 ,35,205,74,0
10080 DATA 198,4,79,62,3,245,50,120,230,
205 ,135, 234 ,241,60, 254 ,7,32, 243 ,201, 205
10090 DATA 135,0,205,74,0,254,16,40,44,2

14.4.205.77.0. 184.192.35.58.123.230
ÎOIOO DATA 60,50,123,230,58,120,230,254,

4.40.15. 254 .6.40.11. 205 .74.0. 185.216
10110 DATA 62,1,50,122,230,201,205,74,0,

185.56.244.201.62. 200 . 205 .77.0. 35.58
10120 DATA 120,230,230,1,254,0,40,11,237
,95 , 198 , 50, 50, 121 , 230,205 , 77 , 0,201 , 58
10130 DATA 121 ,230, 87, 5B, 125,230,130,205
,77,0,201

- 91 -

LABYRINTHE

Traversez le plus rapidement possible le labyrinthe. Pour cela, déplacez-
vous le moins possible.

Utilisez les touches curseur gauche et droite pour vous déplacer.
Vous pouvez passer d'un bord à l'autre de l'écran sans problème.

10 REM************

20 REM*LABYR INTHE*

30 REM************

40 SCREEN 1,2
50 COLÜR 10,0,0
60 KEY OFF
70 Z=RND {-TIME)

30 DEFUSR-60000 !

90 ON STOP GOSUB 110
100 STOP ON: GOTO 120
110 SCREEN 0: END
120 GOSUB 460
130 GOSUB 10000
140 CLS
150 GDSUB 700

160 FOR Y 1 = 1 4 TO 22 STEP 4
170 GOSUB 630
ISO NEXT Y 1
190 Y 1=22

200 X 1=120: X 2=6607 s DE=0: N 1=0
210 TIME=0
220 LÛCATE 5,1

- 93 -

230 TE=TI ME/50
240 PR INT TE
250 A=STICK(0>

260 IF A<>7 THEN 290

270 IF X 1 = 1 6 THEN X 1=240: X2=X2+28

280 X 1 = X 1 —8 : X 2= X 2— 1 : BEEP

290 IF A< >3 THEN 320

300 IF X 1=232 THEN X 1=B: X2=X2“2S

310 X 1=X 1+8: X2=X2+1 : BEEP

320 PUT BPRITE 1 , ( X 1 , 96) , 9 , 1

330 IF VPEEK ( X2) < >32 DR VPEEK ( X2+ 1 ) < >32

THEN 370

340 Z=USR (0)

350 N1=N1+1

360 IF Nl<30 THEN GOSUB 630

370 IF Nl<34 THEN 220

380 PLAY "G5L.64CDE

390 PUT SPRITE 1, (0,208) , ,1

400 IF TE<RE OR RE=0 THEN RE=TE

410 GOSUB 700

420 LOCATE 9,10

430 PR INT "APPUYER SUR <S>"

440 IF INKEY$<>"S" THEN 440

450 GOTO 140

460 RESTORE 580

470 FOR T=0 TO 31

480 READ A

490 S$=S4+CHRT CA)

500 NEXT T

510 SPRITE*<1)=LEFT$<S*,32>

520 FOR T=0 TO 7

530 READ A

540 OPOKE 192Q-+-T, A

550 NEXT T

560 VPOKE 8222,244

570 RETURN

580 DATA 0,3,7,7,3,1,15, 23
590 DATA 23,23,23,7,6,6,14,30
600 DATA 0,192,224,224,192,128,240,232
610 DATA 232,232,232,224,96,96,112,120
620 DATA 255,66,36,24,24,36,66,255
630 Z1=RND(1>*12+* '

640 Z2=RND(1)*13+14

- 94 -

650 LOCATE tf,Yl

660 PR INT STRINGS (29, CHR* (240) > ;

670 LOCATE Zl,Yl:PRINT SPACE$(2)

680 LOCATE Z2,Y1:PRINT SPACE$<2)

690 RETURN

700 LOCATE 0,1

710 PRINT SPACE$(32>

720 LOCATE 5,1
730 PRINT TE
740 LOCATE 19,1
750 PRINT RE
760 RETURN

10000 REM SCROLL BAS~>HAUT

10010 RESTORE 10070

10020 FOR T=60000 ! TO 60029!

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 6,4,197,1,32,0,17,33,0,33,128

, 24 , 205 ,74,0, 237 ,66,205,77,0

10080 DATA 25,62,27,188,32,242,193,16,22

9,201

FOOTBALL

Le footbaJI est un sport d'équipe. Voilà un jeu qui vous permettra d'en
témoigner I

Vous êtes seul contre toute une équipe et devez marquer un maximum
de buts. Dix interceptions du ballon par l'ennemî et vous avez perdu.

Shootez avec la touche curseur haut.

Vous pouvez, avant le shoot, déplacer le ballon horizontalement à l'aide
des touches curseur gauche et droite.

10 REM**********

20 REM*FOÜTBALL*

30 REM**********

40 OPEN "GRPi " FOR OUTPUT ASttl

50 GOSUB 10000

60 COLOR 15,12,12

70 SCREEN 2,2

80 KEY OFF

90 DEFUSR=60000!

100 ON STOP GOSUB 120

110 STOP OFF: GOTO 130

120 COLOR 10, 1 , 1: SCREEN O: END

130 GOSUB 580

140 S*=""

150 GOSUB 500

160 X 1=128: Y 1=1 84: CO=Ü: NE=0
170 RE STORE 830
180 FOR T =2 TO 11
190 READ X , Y

200 PUT SPRITE T,(X,Y),4,T
210 NEXT T

- 97 -

220 PUT SF'RITE 12, ( 128,48) ,8, 12

230 X3=168:SC=REï GOSUB 870

240 X3=72: SC=0: GOSUB B70

250 GOSUB 940

260 ON SPRITE GOSUB 420

270 SPRITE ON

280 A=STICK (0) : Z=USR (0)

290 IF A=7 AND Xl< >96 AND Y1=1B4 THEN XI
= X1-B

300 IF A=3 AND Xl< >160 AND Yl=184 THEN X
l=Xl+8

310 IF A=1 AND Y1=1B4 AND B=0 THEN Yl = 17
6: PLAY '’05L64B M
320 IF Y10184 THEN Yl=Yl-8
330 IF Y 1=40 THEN 5C=SC+1 : GOSUB 870 s PLAY
"05L64CD" : Yl=184
340 PUT SPRITE 1 , ( XI , Y1 ) , 1 , 1
350 IF CD=0 THEN B=Os GOTO 270
360 IF SORE THEN RE=SCs X3=168: GOSUB B70
370 SC=0

380 PSET C 80 , 24 ) , 1 2

390 PRINT 41, "APPUYER SUR <S>"

400 IF INKEY*< >"S" THEN 400
410 NE=0: GOTO 60
420 SPRITE GFF
430 Y1=1B4: PLAY "01L64D"

440 FOR T=1 TO 150:NEXT T
450 PUT SPRITE 1 , (XI , Y1 > , 1 , 1
460 NE=NE+i: GOSUB 940
470 IF NE=10 THEN 00=1
480 B= 1
490 RETURN

500 LINE CO , 56 ) ~ (255 , 56 >

510 PSET C 96, 56 ï

520 DRAW "M96 , 32M168 , 32M16B , 56 "

530 PSET (88,56)

540 DRAW "MSO , 80M184 , BONI 76 , 56 "

550 PSET (48,56)

560 DRAW "M16, 120M248, 120M216,56"

570 RETURN
580 RESTORE 720
590 FOR T=0 TO 39
600 READ A

- 98 -

610 S*=S*+CHR* (A)

620 NEXT T

630 SPRITE*(1)=LEFT* (S*, 8)

640 FOR T =2 TO 12

650 SPRITE* (T) =MID* (S*, 9, 32)

660 NEXT T

670 FOR T=0 TO 32

680 READ A

w f ^ i : Tr 1 [ ,

700 NEXT T
710 RETURN

720 DATA 0,60,126,126,126,126,60,0

730 DATA 3,3,3,1,7,11,11,11

740 DATA 11,2,2,2,6,0,0,0

750 DATA 128,128,128,0,192,160,160,160

760 DATA 160,128,128,128,192,0,0,0

770 :

7B0 DATA 40,120,1,80,176,1,136,216,0
790 DATA 72,120,1,136,184,0,80,120,1
800 DATA 136,176,0,80,176,0
810 DATA 40,120,1,136,216,0,96,160,1
820 :

830 DATA 56,144,128,160,200,144

840 DATA 96,128,160,128,96,104

850 DATA 160,104,128,88

860 DATA 56,72,200,72

870 COLOR 12

B80 PSET < X3 , 8) , 12

890 PRINT #1 , STR ING* <4, CHR* (200) )

900 COLOR 15
910 PSET ( X3 , 8) , 12

920 PRINT #1 ,RIGHT*(STR*(10000+SC) ,4)

930 RETURN

940 COLOR 12

950 PSET (128, B) ,12

960 PRINT ttl , CHR* (200) ; CHR* (200)

970 COLOR 15

980 PSET (128,8) , 12

990 PRINT #1 ,RI6HT*(STR*(100+NF) ,2)
1000 RETURN

10000 REM DEPLACEMENT JOUEURS

10010 RESTORE 10070

10020 FOR T=60000! TO 60058!

- 99 -

10030 READ A
10040 POKE T, A
10050 NEXT T
10060 RETURN

10070 DATA 1,1 20 , 230 , 62 , 2 , 245 , 205 ,113, 23
4,241 ,3,60,254,13,32,245,201,205,135,0
10000 DATA 35,205,74,0,87,10,186,3,32,6,
3 , 62 , 1 , 2 , 24 , B , 1 O , 1 86 , 3 , 32
10090 DATA 3,62,0,2,10,254,0,122,30,4,32
,2,30,252, 131,205,77,0,201

- 100 -

MINES

Franchissez ce champ de mines. Mais, attention, vous êtes
chronométré !

Au début, l'ordinateur affiche les zones minées. Mais celies-ci seront
par la suite invisibles. Pour les voir à nouveau, appuyez sur la touche < G > .
Mais cela vous fera perdre du temps.

Pour vous déplacer, utilisez les touches du curseur.

10 REM*-* *****

20 REM*MINES*

30 REM*******

40 SCREEN 1 ,2
50 COLOR 1,10,1
60 KEY OFF
70 Z=RND (-TIME)

80 DIM X(10) , Y (10)

90 ON STOP GOSUB 110

100 STOP ON: GOTO 120

110 COLOR 10, 1,1; SCREEN O: END

120 GOSUB 540

130 CLS

140 SC=0

150 GOSUB 730

160 X 1=24:' Y 1=32+ INT tRND ( 1 ) *33) *4
170 0=1: GOSUB 840
180 SPRITE$<i)=""

- 103 -

190 PUT SP R 1 TE 1, <X1,Y1) ,9,1
200 FOR T=i TO 3500: NEXT T
210 C=0 : GOSUB 880
220 TIME=0
230 SPR I TE$ ( 1 ) «

240 ON SPR I TE GOSUB 470

250 SPR I TE ON

260 SOTI ME/50

270 LOCATE 7 , 1

280 PR INT SC

290 A=STICK<0>

300 IF A=5 AND Y K >160 THEN BEEF’: Yl=Yl+4
310 IF A- 1 AND Yl<>32 THEN BEEP: Y1=Y 1 -4
320 IF A=7 AND XK >24 THEN BEEPîXl=Xl-4
330 IF A=3 THEN BEEP:Xl=Xl+4
340 IF INKEY$<>"G M THEN 380
350 C=ls GOSUB 880

360 F DR T=1 TO 800: B#=INKEY$: NEXT T

370 C=0: GOSUB 880

380 PUT SPR I TE 1 , (XI , Yl) ,9, 1

390 IF XK >224 THEN 260

400 PLAY "05L64CDE"

410 IF RE>SC OR RE=0 THEN RE=SC: GOSUB 81

O

420 LOCATE 7,10

430 PR INT "APPUYER SUR <S>"

440 IF INKEY$<>"5" THEN 440

450 PUT SPR I TE 1,(0,208),,1

460 GOTO 130

470 SPR I TE QFF

480 PLAY "01L64CDCDCDCD“

490 0=1: GOSUB 880
500 SPRITEft 1)=A$

510 SPRITE* <1>=" »

520 IF PLAY CO) =— 1 THEN 500

530 GOTO 420

540 RESTORE 650

550 FOR T=0 TO 63

560 READ A

570 S$— S$+CHR$ (A)

580 NEXT T

390 A*=MID$(S$ ,33,32)

600 FOR T=2 TO 10

- 104 -

610 SPR I TE$ ( T ) =LEFT 4 1 - < S$ , 32 )

620 NEXT T

630 VPOKE 8219 , 26

640 RETURN

650 DATA 192,224, 1 12,56 ,2B, 14,7,3

660 DATA 3,7,14,28,56,112,224,192

670 DATA 3,7, 14, 28 , 56 ,112, 224 , 1 92

680 DATA 192,224,112,56,28,14,7,3

690 DATA 3,3,3,1,7,11,11,11

700 DATA 11,2,2,2,6,0,0,0

710 DATA 192,192,192,128,224,208,200,208

720 DATA 208,64,64,64,96,0,0,0

730 FOR X=0 TG 29

740 LOCATE X,3

750 PR INT CHR$ (219) ;

760 NEXT X
770 FOR X=0 TO 29
7B0 LOCATE X ,22
790 PR INT CHR$<219);

800 NEXT X

810 LOCATE 7,1 SPRINT SC
820 LOCATE 18,1: PR INT RE
830 RETURN
840 FOR T =2 TO 10

850 X (T) =4B+RND ( 1 ) *70+90* (T AND 1)

860 Y (T)=32+15*(T-2)+INT<RND< 1 ) *8)

870 NEXT T

880 FOR T =2 TO 10

890 PUT SPR I TE T , < X (T) , Y (T) ) , C, T
900 NEXT T
910 RETURN

- 105 -

LA BIBLIOTHÈQUE SYBEX

OUVRAGES GÉNÉRAUX

VOTRE PREMIER ORDINATEUR pat Rww Zms.

296 pages, Réf, 394

VOTRE ORDINATEUR ET VOUS par RomaïZaks.

296 pages, Réf. 271

DU COMPOSANT AU SYSTÈME : une introduction aux
micïDprocesseurs par Rognât Zaks,

636 pages, Réf . 340

TECHNIQUES D'INTERFACE aux microprocesseurs
par Ausrm Lésé a et Rodnat Z ans
450 pages, Réf 339

LEXIQUE INTERNATIONAL MICRO ORDINATEURS, avec
dictionnaire abrégé en 10 langues
192 pages, Réf. 234

GUIDE DES MICRO-ORDINATEURS A MOINS 3 000 F

par Joël Poser t

144 pages, Réf, 322

LEXIQUE MICRO INFORMATIQUE par PxmUBm.
140 pages, Réf 369

LA SOLUTION RS 232 par Joe Campbell
208 pages, Réf- 0052

MINITEL ET MICRO ORDINATEUR par Pvm:*Boürgaüit
198 pages, Réf, 0119

BASIC

VOTRE PREMIER PROGRAMME BASIC par RoünayZaks
208 pages, Réf. 263

INTRODUCTION AU BASIC par Pttm Le Bm.

336 pages, Réf, 0035

LE BASIC PAR LA PRATIQUE : 60 exercices

par JrwPttm Lamuiwr

252 pages, Réf. 0095

LE BASIC POUR L'ENTREPRISE par Xuan TmRut,
204 pages, Réf, 253

PROGRAMMES EN BASIC, Mathématiques, Statistiques,
Informatique par Alan R. Mitim ,

318 pages, Réf, 259

BASIC, PROGRAMMATION STRUCTURÉE
par Richard Mateosian
352 pages, Réf- 429

JEUX D'ORDINATEUR EN BASIC par David H , An.

192 pages, Réf, 246

NOUVEAUX JEUX D'ORDINATEUR EN BASIC

par Dam H. An

204 pages, Réf. 247

FICHIERS EN BASIC par Alan Simpson.

256 pages, Réf. 0102

PASCAL

INTRODUCTION AU PASCAL par Pierre Le Beux,

496 pages, Réf, 330

LE PASCAL PAR LA PRATIQUE

par Pierre Le Brm tr Henri Tavernler,

562 pages, Réf. 361

LE GUIDE DU PASCAL par Jacques Tiberghten.

504 pages, Réf. 423

PROGRAMMES EN PASCAL pour Scientifiques et
Ingénieurs par Alan R. Miller.

392 pages, Réf, 240

AUTRES LANGAGES

INTRODUCTION A ADA par Pierre U Beu*

366 pages, Réf, 360

MICRO-ORDINATEURS

ALICE

JEUX EN BASIC POUR ALICE par Pierre Mùnsaui
96 pages, Réf. 320

ALICE et ALICE 90. PREMIERS PROGRAMMES

par RoonatZaks

24 8 pages, Réf . 376

ALICE, 56 PROGRAMMES
par Stanley R . Trûst
160 pages, Réf. 401

ALICE, GUIDE DE L’UTILISATEUR par Norbert Bimoux
208 pages, Réf. 378

ALICE, PROGRAMMATION EN ASSEMBLEUR

par Gf orges Fagot Barrai y.

192 pages, Réf. 420

AMSTRAD

AMSTRAD, PREMIERS PROGRAMMES par RqonayZaks.
248 pages, Réf. 0105

AMSTRAD, 56 PROGRAMMES par Stanley /?. Trqst
160 pages, Réf, 0107

AMSTRAD, JEUX D'ACTION par Pierre Monsaut.

96 pages, Réf. 0108

AMSTRAD, PROGRAMMATION EN ASSEMBLEUR

par Georges Fagot Barrait.

208 pages, Réf, 0136

AMSTRAD EXPLORÉ par John Brada.

192 pages, Réf. 0135

APPLE / MACINTOSH

PROGRAMMEZ EN BASIC SUR APPLE IL
Tomes 1 et 2 par Léopold Laurent,

208 pages, Réf. 333 et 380

APPLE II 66 PROGRAMMES BASIC par Stanley R r Trosî.

192 pages, Réf. 283

JEUX EN PASCAL SUR APPLE

par Douglas Heroert et Joseph T. Km asm

372 pages, Réf, 241

GUIDE DU BASIC APPLE II par Douglas Hergert,

272 pages, Réf. 0006

APPLE II, PREMIERS PROGRAMMES par Roonay Zaks,
248 pages, Réf, 373

MACINTOSH, GUIDE DE L'UTILISATEUR
par Joseph Casgoho,

206 pages, Réf, 396

APPLE UC, GUIDE DE L UTILISATEUR
par Thomas Biackaoar.

160 pages, Réf. 0089

MULTIPLAN SUR MACINTOSH
par Gouim Habasoue
240 pages, Réf. 0099

ATARI

JEUX EN BASIC SUR ATARI par Pm Btm.

96 pages, Réf. 282

ATARI, PREMIERS PROGRAMMES par RomrZAxs
248 pages, Réf. 387

ATARI, GUIDE OE L'UTILISATEUR par Thomas Biackadar,
192 pages, Réf. 354

ATMQS

JEUX EN BASIC SUR ATMOS par Pierre Monsaut.

96 pages, Réf. 346

ATMOS, 56 PROGRAMMES par Stanley R. Trust
180 pages, Réf. 372

COMMODORE 64

JEUX EN BASIC SUR COMMODORE 64

par P$m Monsaut,

96 pages, Réf. 0017

COMMODORE 64, PREMIERS PROGRAMMES
par RoonayZaks,

248 pages, Réf. 342

GUIDE DU BASIC VfC 20. COMMODORE 64

par Doublas Herbert
240 pages, Réf. 312

COMMODORE 64, GUIDE DE L'UTILISATEUR

par J. Kascme * r

144 pages, Réf. 314

COMMODORE 64, 66 PROGRAMMES
par Stanley R. Trost.

192 pages. Réf. 319

COMMODORE 64, GUIDE DU GRAPHISME
par Charles Piatt,

372 pages, Réf. 0053

COMMODORE 64, JEUX D'ACTION par Pm Ravis
96 pages, Réf. 403

COMMODORE 64, 1« CONTACTS

par Mmv Dejûnghe f r Carolm f Ejmm.

208 pages, Réf. 390

COMMODORE 64, BASIC APPROFONDI

par Gary ÜPPMAk.

216 pages, Réf. 0100

DRAGON

JEUX EN BASIC SUR DRAGON par Pierre Monsaut.

96 pages, Réf. 324

EXL 100

EXl 100, JEUX D'ACTION par Pierre Monsaut
96 pages, Réf, 0126

GOUPIL

PROGRAMMEZ VOS JEUX SUR GOUPIL
par François Asm a
208 pages, Réf, 264

HECTOR

HECTOR JEUX D'ACTION par PmcMonsm.

96 pages, Réf, 388

IBM

IBM PC EXERCIC ES EN BASIC par Jr an Pierre Lamoltier,
256 pages, Réf. 338

IBM PC GUIDE DE L'UTILISATEUR
par Joah Lasselle et Capot Ramsey,

160 pages, Réf. 301

IBM PC 66 PROGRAMMES BASIC par Stanley R. Trust,

192 pages, Réf, 359

GRAPHIQUES SUR IBM PC par Nelson Ford.

320 pages, Réf, 357

GUIDE DU PC DOS par Richard 4. Km,

240 pages, Réf. 0013

LASER

LASER JEUX D'ACTION par Pierre Monsaut.

96 pages, Réf, 371

MO 5

MO 5 JEUX D'ACTION par Pierre Monsaut
96 pages, Réf, 0067

MO 5, PREMIERS PROGRAMMES par RoonayZaks.
248 pages, Réf. 370 *

MO 5 f 56 PROGRAMMÉS par Stanley R. Trost
160 pages, Réf. 375

MO 5, PROGRAMMATION EN ASSEMBLEUR
par Georges Fagot Barrait
192 pages, Réf. 384

MO 5, DYNAMIQUE CINÉMATIQUE, MÉTHODE POUR LA
PROGRAMMATION DES JEUX par Daniel ta
272 pages, Réf . 0118

MSX

MSX, JEUX D'ACTION par Pierre Monsaut
96 pages, Réf, 411

MSX, INITIATION AU BASIC par RoonayZaks.

248 pages, Réf. 410

MSX, 56 PROGRAMMES par Stanley R. Trost .

160 pages, Réf 0109

MSX, GUIDE DU GRAPHISME par MmeShiw.

192 pages, Réf. QT32

ORIC

JEUX EN BASIC SUR DR1C par Peter Shaw,

96 pages, Réf. 278

ORIC PREMIERS PROGRAMMES par RoonayZaks
24 8 pages, Réf. 344

SHARP

DÉCOUVREZ LE SHARP PC 1500 ET LE TRS-80 PC 2

par Micmi Lhoik
2 tomes. Réf. 261-262

SPECTRAVtDEO

SPECTRAVIDEO, JEUX D'ACTION par Pme Mmmur.
96 pages, Réf. 377

SPECTRUM

PROGRAMMEZ EN BASIC SUR SPECTRUM
par SM Grr.

208 pages, Réf. 252

JEUX EN BASIC SUR SPECTRUM par Peter Shaw,

96 pages, Réf. 276

SPECTRUM, PREMIERS PROGRAMMES par Roonay Zaks,
248 pages, Réf. 381

SPECTRUM JEUX D'ACTION par Pierre Monsaut
96 pages, Réf. 368

Tl 99/4

PROGRAMMEZ VOS JEUX SUR Tl 99/4
par François Ami a,

160 pages, Réf , 303

TO 7

JEUX EN BASIC SUR TÛ 7 par Pierre Monsaut.

96 pages, Réf. 0026

TO 7 r PREMIERS PROGRAMMES par RoowZaks
2 48 pages, Réf. 328

TO 7 r PROGRAMMATION EN ASSEMBLEUR

par Georges Fagot Barraty.

192 pages, Réf, 350

JEUX SUR TO 7 et MO 5 par Georges Fagot Barrali
168 pages, Réf, 0134

GESTION DE FICHIERS SUR TO 7 ET MO 5
par Jean Pierre Lhor.

136 pages, Réf, 0127

TO 7, 56 PROGRAMMES par Stanley R. Trost,

160 pages, Réf, 374
TRS-80

PROGRAMMEZ EN BASIC SUR TRS-80

par LEopdio Laurent,

2 tomes, Réf, 366-251

JEUX EN BASIC SUR TRS-80 MC 10 par Pnrre Monsaut.
96 pages, Réf. 323

JEUX EN BASIC SUR TRS-80 par Cm® Palmer.

96 pages, Réf, 302

JEUX EN BASIC SUR TRS-80 COULEUR

par Pierre Monsaut,

96 pages, Réf. 325

TRS-80 MODÈLE 100. GUIDE DE L'UTILISATEUR

par Oason Kmoe.

112 pages, Réf, 300

TRS-80 COULEUR, PREMIERS PROGRAMMES
par RoonayZaks,

248 pages, Réf, 414

TRS BQ COULEUR, 56 PROGRAMMES

par SrmEr R. Trost.

150 pages, Réf. 413

VIC 20

PROGRAMMEZ EN BASIC SUR VIC 20
par G , 0 . Hamrnn
2 tomes, Réf. 329-337

JEUX EN BASIC SUR VIC 20 par Alastair Gouriay.

96 pages, Réf. 277

VIC 20, PREMIERS PROGRAMMES par RoonayZaks
248 pages, Réf. 341

VIC 20 JEUX D'ACTION par Pierre Monsaut
96 pages, Réf. 345

VG 5000

VG 5000, JEUX D'ACTION par Pierre Monsaut
96 pages, Réf, 422

VG 5000, 56 PROGRAMMES par Stanley R. Trost,
160 pages, Réf, 0128

ZX 81

ZX 81 GUIDE DE L'UTILISATEUR par Douglas Hergert.
208 pages, Réf, 351

ZX 31 56 PROGRAMMES BASIC par Stanley R. Trost
192 pages, Réf. 304

GUIDE DU BASIC ZX 81 par Douglas Hergert
204 pages, Réf. 285

JEUX EN BASIC SUR ZX 81 par MAmCmim
96 pages, Réf, 275

ZX 81 PREMIERS PROGRAMMES par Rqohay Zaks.
248 pages, Réf. 343

MICROPROCESSEURS

PROGRAMMATION OU Z80 par RoonayZaks,

618 pages, Réf, 358

APPLICATIONS DU Z 80 par James W. Coeeron,

304 pages, Réf. 274

PROGRAMMATION DU 6502 par RoonayZaks
376 pages, Réf. 0031, 2ème édition

APPLICATIONS DU 6502 par RoonayZaks.

238 pages, Réf, 332

PROGRAMMATION DU 6800

par Dawei Jean Da m et ffomr Lues,

374 pages, Réf. 327

PROGRAMMATION DU 6809

par Rom r Zaks et William Labia a
392 pages, Réf. 0139

PROGRAMMATION DU 8Q86ÆÜBB
par James W. Coffrw ,

304 pages, Réf. 0016

MISE EN OEUVRE OU Ê8ÜÜ0 par C. Vieilleforb.
352 pages, Réf. 0133

ASSEMBLEUR DU 80BB/8ÛGS
par Fmum Rnmm,

616 pages, Réf, 0093

SYSTÈMES D'EXPLOITATION

GUIDE DU CPfM AVEC MP/M par Rûmay Zaks,
354 pages, Réf, 336

CP/M APPROFONDI par AiahR, Muer,

380 pages, Réf. 334

INTRODUCTION AU p-SYSTEM UCSD

par Craries W. Gram et Jon Butar.

308 pages, Réf. 365

GUIDE DE MS-DOS par Rtcmao A, Km,

360 pages, Réf, 0117

APPLICATIONS ET LOGICIELS

INTRODUCTION AU TRAITEMENT DE TEXTE

par H Ai GtATm

228 pages, Réf. 243

INTRODUCTION A WORDSTAR par Arthur Mm*».
200 pages, Réf. 0062

WORDSTAR APPLICATIONS pif Juoe Am Abca,

320 pages, Réf, 0005

VfSlCAlC APPLICATIONS par SrAmrr R. Tbqst
304 pages, Réf. 258

VISICALC POUR L'ENTREPRISE par Domm* Heue,
304 pages, Réf. 309

INTRODUCTION A dBASE IL par ÂumSiwsm,

280 pages, Réf. 0064

DE VISICALC A VlSl ON par Jacques Bqurgeu.

256 pages, Réf. 321

MULTIPLAN POUR L'ENTREPRISE

par 0 , Hell e et G. Boussand.

304 pages, Réf. 0079

dBASE II APPLICATIONS par Christophe Stehli
248 pages, Réf, 416

INTRODUCTION A LOTUS 1-2 3

par Chris Gilbert et Laubie Williams
272 pages, Réf, 0106

LDGISTAT, ANALYSE STATISTIQUE DES DONNÉES

par Freoj Tekaia et Michels Bmi ,

192 pages, Réf. 0132

La plupart de ces ouvrages existent en
version anglaise.

POUR UN CATALOGUE COMPLET
DE NOS PUBLICATIONS

FRANCE
6-8, Impasse du Curé
75881 PARIS CEDEX 18
Tél. : 42.03.95,95
Télex : 211801

U. S. A.
2344 Sixth Street
Berkeley, CA 94710
Tel. : (415) 848.8233
Teiex : 33631 1

ALLEMAGNE
Vogelsanger. WEG 111
4000 Düsseldorf 30
Postfach N° 30.09.61
Tel. : (0211) 626441
Teiex : 08588163

SYBEX

Paris • Berkeley • Düsseldorf

Achevé d'imprimer le 9 octobre 1985 sur les presses de (Imprimerie «La Source d'Q™
63200 Marsat - Dépôt légal : 4* trimestre 1985 - Imprime * t n° 1865